

ja—] 

Data ddULJI J^l J nilII 

RAM Aj 3>»21 jjjjj-kll SjSti ljuj>kj ts' 4*-* ^2 j J& ^ULjJt * 

.Byte (bub) tr 6 ^ Auik]| j Ajjluualt biliJl ja^la ja jjjjuAlt SjSI j j j£u * 
buj ‘ A« Aulajka A^Lua Ai jlaj J£ jSf RAM S j£l ill jj jkj AAjjIa Al jlaa ^ jj J£ * 

.Aaifr j jaliui Jjl\ A jib‘tall j AuaLuaJl A^lliall bibiat j jball £ jal 

tadldLwJI tljii 

» ,.,,. j_* CjULuII y_S » <A". ,..-, ^_j]| AjUball jji j_a ■< j v»" V.B.Net AJL1 j2ju * 

. £Labjail blaaLuj jal ji Aaiu ja ji £Labjail 

:<U*d}JI dUUJI 

.AjjLua bibla& ' jj'g- jjaj ji jLaa ^all j»l2jSfl 

wULwJI 

^jj jjialail ^ij JJia j»l_2ji bulb jJj yAajLuA bibilaC. ' j' r - j jaj V yull bibjball ^Jk * 

.(jjjIaII ^4ijj J< nl< iiall ^4 ijj A4lkaI1 


AddJI 

AdjAAJI ddldlwJI AteJaj t^d^l 

(A^JI 


- 

Cub Y (jl\ ^bau uija. JSj Li4 A^tj uij& ja jaul 

bub Y 

Chare 

- 

( jjialail £ j) AjjIuia bilalaC- ^4 Jljj V fl4Iji ji i-jjja. 


String 


amMjJI wULwJI : Ldld 

4A*A*Q dldtfl U)d jjAd QULJI (Y 


AddtJI 

<u>^&JI ddldUJI AdhwJaj 

(0^1 

£^l 

- 

Y a a (jll jiaa ja 

bub Y 

Byte 

btULk a 

Aa^jai ji AalLui AiLj^^all ^lijSU 

bub Y 

Short 

btULk Y • 

Aa^ja> ji AalLui A ->j^i^il| ^14j^U 

bub t 

Integer 

AJLk Y A 

Aa^ja> ji AalLui A ->j«n<-)lt ^>14jbU 

bub A 

Long 


. dUfil Ud j>*d ^>JI ddULJI <r 


<UdJI 

k$d*JI 


&1 • 

biULk V 

Au^ja ji AulLu AujuaII ^ISjSU 

bub i 

Single 

AJLk Y a 

Au&ja ji AulLui AjjudlII ^lijSU 

bub A 

Double 

AJLk YA 

Au^ja ji AulLui AjjudlII ^lijSU 

bub Y A 

Decimal 


[ ^ &*> J^l£a Jlulw / — d ] 











































jJj)H0^1iU JA—A^fl ] 

^^-di qUUJI mia 


<ujJI 


(O^JI 

£^JI 


True or False ^311 bilalaall 

CaalaA 

Boolean 


(<A>* - cr^j) t'^'j 

aaala i 

Object 


AAA A/> t/f > ylj . . . A/A/A ja 

Caala A 

Date 


: <yJUI Jyl$aJI <ji* dULJI jl^l oat^y 


.A£. jj u«a, jaiaa J£ I j -> 1 -1X1 ^all S jSIaII ?**. jA j ; Bytes JJC -A 
.A^jl i_i«A jaiia js l^lajla ^laall ^aill ajax jAj ; Range cs^all 

. JaA£ AaaiSijl! Calalaalla A^ll ^ j jaiaa JH Calalxll AAC ^ j ; ASaII Ax, jJ -V 

:^l 

,£jl ja ja£i Aj Call Lull £)jai ja i aj•,■><-. J£ * 

Cub £ Ujii 4 aLul» (Ji_uu Integer £jHl <jajnaAli Sj£l j ja jla J*Aj £j3 J£ * 

.a jSIaII <>y% ja 

Byte O'-#!! £>* ^1*2 Range <iA-a' jjte - jjilaa fuill ja axj ^ji ax aJ luaai £jl J£ * 

,r«flAJ ^Vl AaJlj jiua Al ^jVI Axil 

Constants & Variables al^uiyaJlj j^yjl 

Constants y^ j^jl jj|j I 

^ juj ^_ul LgJ AAxaa 1 j ‘ r - jiLeVI AaC- RAM j"'j,'.*Sjll j ^ is jjxxa j£l_ai j* a jluC. * 

.galajail Jaiuaj f Lul jaiaa V galajail jaui flaai Aaala A_aa2 Axiaj 4 jlaa 
A*juaj iAauaajVl Auajlxll A Ue. JjLa f Lajaill dial jail jauu ji ih 5_aaS dial jail A_5aai j_a * 

MA Install fbhftoU b$jml 

.( ) Aailfr ji AujalxaVI Axilla uijjx ja uijxa jaiaall ji aalaall ^aal lAu ji uaj (\ 

A_ailfr - AjaSall -AiLuiall Jaa A_ualx 5_ail& ji j_aj ji ( _ r lc jaiaall ji aajlall ^aai jjaxa V ji (Y 
.A i^iKIt Jjajll ja Ujat j ,, gjlall ji gaxJl Au!^C -Ajajauil - i_ax*all Aaile - ^IgiiuiV) 

(Dim, As, Single, print) <£« Sjja^All bilalsll ja jaiaall ji aaalaJI ^uil jjSa V ji (V 

.( _) Aasilfi.j ^iSjij uijjx ja jaiaall ji aaaall ^aat jjSaa ji jlaa ( i 
.Aaalll jajlal Quantity ‘J*aall Lttj^l Price #ljaxa jfr jaiaall j>aal ja*a ji Jbaia (0 
.Aa2 j jaa uijaa ^all Calalaall Axaakl uiuilaa jlaa £jj jlaall uaj (“l 

[ ^ J^l£a jlulw / — d ] 


























jg—] 

:Qy|$ai a* gjUgl 

.AjjIj Jaaj yjil L!ilail fLauii fUafrj Aulae yA * 

^ = kjt^s. ?Ji oLuil £jj As ^ baiill Const 'Jjj ljj! jilt CP * 


Const LjiiiJt jwit AS l)^' = AjjIJjjV) 4_aAJI 


Ji jUf)U «UiUI 

Const C_Name As String ="4 jjj*1I j^oa Ajj^fA*" 

A^aUt A^uSit u ^u^\' String Ac-^ij SjSIill yi C_Name ^-i u& u^Vt 

"AjJJfcSt J^Aa Ajjj$-aa" 


Const Pi As Single = 3.14 

V ,\ i AjajSj Single Ac- jjj » jSI ill yi Pi Ljjlii £e (^eVt 
Const B_Date As Date = #31/12/2003# 

t • • r/u/r t aIajSj Date £jill <> B_Date ^<W ^ <£^*1 

Const Quantity As Integer = 300 

r. . AjaiSj Integer Ac-jij SjSlill yi Quantity u^VI 

.yA La£ *_iiaj y£J Aj-^aj A_ojS AjUS AJla. yi ( " " ) ylal^e » <A",,..-. * 

.diij 4 _aji ji jjjlj 4 _oji AjU£ AJla. yS (# # ) yl«!^e y^A&luu * 


0 ) 1*0 


1 ghjt aj 1 <«« >.i tS jJlJ jJa2 ( Aioi j A-aa2 JjVunj VB.Net AiL ^laUjj JlJC-Li ^ 

.Jjj L Y »jilAll hji aj Y Jjj Ja ajillll A^Iula jb Laic. Button >*Vl jj yie Jaxbail lie 
22/7 AIajSj Pi AjjIj Ja A-ojSj t jjila R jlaaJl 1 * 



[ <>**> J^l£a Jlulw / :lA&l — d ] 


























J£ ^JJ^U> J& Pi iluljJI j R jj*1aJI £fr & o' lJM ' ^lijlalt 

Public Class Forml 

Private Sub Buttonl_Click 
Dim R As single 
Const Pi As Single = 22/7 
R= TextBoxl.Text 
Label2.Text= Pi * R A 2 
End Sub 

Private Sub Button2_Click 
Dim R As single 
Const Pi As Single = 22/7 
R= TextBoxl.Text 
Label2.Text= Pi * R * 2 
End Sub 
End Class 

.t inn/Viti csjluLt #>« Pi lijljltj R jj* l*2t (jfr O' AAjjlalt 

Public Class Forml 
Dim R As single 
Const Pi As Single = 22/7 
Private Sub Buttonl_Click 
R= TextBoxl.Text 
Label2.Text= Pi * R A 2 
End Sub 

Private Sub Button2_Click 
R= TextBoxl.Text 
Label2.Text= Pi * R * 2 
End Sub 
End Class 

.4J& Ljjli!) ji jjilaJl JLaaLiuil Jjlkj * 

.^laU ijjll Jib 4JLoa2u>L iluliUl j) Jjlkj * 

0-fr SJLfr! <>. J-jV flaZ SUi t/i p\ J^b li^l j! ^ o£Le¥t Jie * 

,jii f <—ljIaSI 

0-fr b' >J P 'J-S y-2 i c- 4 ^Ntt OjJ ii-jtjiiJlj litj_j*2»It fbVi mV * 

. Class < a jUrfVit t liljjilailj iluljjJl 

[ J^l£a jlulw / — d ] 





















jg—] 

(Variables) Qlj*i i a II 

La SjLfrj tpjaj ^aaal LgJ JAaaj l^.ic. (j^LcVI AaC- jjjjaaSil SjSI3 ^ ’'Jj'^ 4 (jSLai (jfr ajLiC- * 
jjaa flajl A_laj3 jaiaj jLj A_aj3 jaiiall iAia <ji (jiajj t^paUjail jjaa fUiii 1 j"i<nA jj*jj 

,jj*jj (jl ,jLaj ajUlaj Igjtaa^ j cufllaja (jljic- iAaa jJa 4_aj2 t^lala ji A*lui jju m Jla t^paUjall 
Dim A_alSll ^lA'iuila jjxjall jjfr j^VL j»jli * 

£« jiUai 

.ajjila Lu3 Jaaa CjULuIl ji LilaJI pLuai f-UacI AaLaC ^ * 
jtJl p jj aJ As A-aK aJ jjixall aaal aJ Dim 4 IAjj Ci\ jj* laSt * 


|Dim As Lj^t = AaitA^Vt A-aAlt 


AJIa Ax-jli AiLuba jjilaJ) A_aj2 jl3 ^3jlaJl pjj jlS |j) AjjIUjV) A_aai]l JlaAt Ajla ^3 * 
.jAj^ = jjjuaJl A_aa3 (jli ^a3j jj*xaJl (jlS tit 
.aA&tj Dim 'LalS ^lAaauila jjxla qa jail (jC- jilxVI jjlaj * 

^ pUtUJ ^LUt 

String F_Name cP - 

Dim F_Name As String □ 

Single csj^ 6, u^j Total_Price {»"W - 

Dim Total_Price As Single 

Date jjjLi A*jj £>a Today {»"W o 6, - 

Dim Today As Date = #25/1/2001# 

Jla ±*lj Dim 4-«JS (> jjSI £e o^Vt l£«a - 

Dim X, Y, Z As integer 

Dim X As Single, Y As Integer, Z As Boolean 

(?) t*b 

: ^USIS - cj^Aa jaSima (ja LJ a]|j Form o^ta JlJC-L ^3 



[ 0 j+*> J^l^a jlulw / — d ] 

























^LO?l0d0llOOI - 


(litjjiiall f IauiIj ^LaU ijJl ^.iVuiia fa ditjJt jjjlic ^l.lViniU 


Variables Oj ttia II $Le-J 

Data Type gLJI 

(0O4l Qljal 

U Name 

String Lfa 

ulUall fa 

U B D 

Date feP 

£IiaJI jjjtJi 

U Gender 

Boolean J&i* 

e^' 

U_C_F 

Integer 

ijuti t Jijai jjc. 


jj-i oaLUt Event Handler glL*-* j' Procedure 4U2a) fa 


: ^ySHSLS ( 1 iIjj* 1 aJI fa O^VW Click iaLiaJlj 

Private Sub Bottonl_Click 
Dim U_Name As String 
Dim U_B_D As Date 
Dim U_Gender As Boolean 
Dim U_C_F As Integer 
End Sub 

Assignment :gftyfl^UI 

(jjfljJa fa- a jl—iC- Vitt 4-1 a aj 4 fau- » ji -_.U1 (LaaS fafa jt faaj fa Vitb ifaLi * 

4_aj1!I 4_j 2 j! JjlLuu (j jJ) (IuIaI) ji jjxIaJI ^uit JjiAj (-ijlaltj ((=) 4-aitfr 1 «j *j t * 

t_ajlaJla 


fah jfai\ 

jr> i inS i II OUc 

OO) <>m2I 4 jOI 

oQUll 


(j til a II 

OuLili jl jJliaII ^uj! 


aJja^ <fa - \ 

0 i 


fa] jjiiA-r 

j' 

<X*m\ 


Lf fa^. jjjsu -V 

4 _tuala, <Laj2 -£ 


jninrSill>al 401 


jninSill >al 

OOJI 

X= 25 

aJj^a <Laj2 - \ 

X=25 

fa) jj*1a 4_aj2 - T 

Y = X 


X= 23+3*2 

faiuA jjj*j fa kfa _r 

X=TextBoxl.text 


TextBoxl.Text= "Egypt" 



[ ^ j**> J^Oa Juakw / :!Jh&! — d ] 

































jJjno^U jg—a 'ift ] 


Variables Q|>A^I ^ 


^iil OlJI 

•^wdUJI 

*U-I 


TextBoxl 

Text 

U Name 

U Name=TextBoxl.Text 

TextBox2 

Text 

U_B_D 

U_B_D=T extBox2.T ext 

RadioButtonl 

Checked 

U Gender 

U Gender=False 

TextBox3 

Text 

U_C_F 

U_C_F=TextBox3.Text 


.dbtod^JI J-frf- 

Private Sub Bottonl_Click 
Dim U_Name As String 
Dim U_B_D As Date 
Dim U_Gender As Boolean 
Dim U_C_F As Integer 
U_Name=TextBoxl.Text 
U_B_D=TextBox2.Text 
If RadioButtonl.Checked= True then 
U_Gender= True 
End If 

If RadioButtonl.Checked= False then 
U_Gender= False 
End If 

U_C_F=TextBox3.Text 
End Sub 

:QUa*)W 

&vbCrLf& LulHt (jjj Juaill fjj -t 

j,^*U (jjJ Jajjll ^Jiluu ( & ) (J^abta -T 

jlouij JUjVI ^ULa J a j AiluaV ^Vn«j vbCrLf Luliill -V 
.jlxui (ja JjS,\ & Jj£ll jJaw 4_iU£J »-* ( ) Ajliutll 4Jaj2iit -1 
.AHlaJl Form SiaU jjHu Me *Lal£J) 

-i-.lajW'U jlau ^jA .uijj ji REM 4 jla-uall !AjJ CjQa^!ini AjUH _“l 

.JjSJl <La^,JJ He 4JL»A] ^ajjj JjS jjjju V (‘) <Laite ji REM 'LalS Au l-l&j La * 


r 7 ! 


.£jlaJ! ylj O* O-' J&l *iL|L«dt jjtiS A 

j**> J^Lsa Ju»w / — d ] 























u^)\ 


,t_yuJi\ CiLlae iiiij - Y 
.(jjAiIl jL«u!l ijA A «< n^tj LjIjHHI CAjLe Jjiu -T 
.jjAiIl jluuil £>a ^jJallj ^ 4 &Jl CihUe liiu _ £ 

Vji AH*'- 12 ' O-'J&U Aj^II jVl £li O-'J&Vl Ciik!H lit * 

. jj A j" jluull (jrf AjjJyjH (jjSj AHjit ^ AjjLua AHaC CijLuu t J] * 
5 + 3*2 AHIH! AjjU-aJt AjIaH) £jU U ; 

S \ gHUlt oJ%^ 0 + 1 £•*+ "l cjSjI Vjl V * t i_jjHa ^jj ; 

(5+3)* 2 AHIH! AjjU-aJt AjIaH) £jU U ; 

^ “l guUJt t * A i_jjHa ^jj f+o (jjtjSVt J^)Aj La AjIjj pit ; 

4 i il. ,a ^LuJI >*C. 4 \ \\ i t **<t \\ At t i Al&JJ Slp )^-4 ^ 

.Uai. AJLuj j jj^Ja (jjJ AjHHH) fUa^Sfl jSj A-uUuaJl CiLlaaH CibjJjVt alelj^> ^Je AJIa ^ * 

Errors $Uaft)SI 


< /; ■ ■■** Ai f-UaiSn * / dJjj t4_^ajHl AsL! JetjiL Cy JjV JljSSfl AjIH He * 

V Hij tLkk gHlH ( _ J Je jl j_aIjV1 HHj ^Je ji JjHl AjIjS fU jI UaH Jaluij jj^Ja ^ 

.fUalVt (>« £tjjl V 1 HUAj jHl JjiHu pi u 

Syntax Errors «u$aJ «Ua^2l 


j fl faj <*■ uiLuuSV) J^-uj fUa^Vl <j-a £jHl lAAj AJLSJ) J-atjSf A_al*Jl Aelj noil fUaH) ^ * 

.JjHI AjUS fUai a jHiLla liLaLai 
(^^aui UaH) »j'-" jje J£**u jj£Jl AjUS He HaHj * 

Din X As single 

(jj*1 Uai) A_a jS aJ jaHj plj ilullll (j e (j^leV) He ^ 

Const X As Single. 

Logic Errors <Ly>]a**JI Ala^l LyQ 

Ci )jjjju AeU^ HJjj ^ealH jH) Aju Lka. juLli j _ r le J^aaJ UHe j^Jaj f. UaH) * 

,liaH ^cjIH J& J^uaaJ) UaH a jj^aj AIHoIa j) AjjLua 

Dim R As single 
Const X As Single = 22/7 
R = TextBoxl.Text 
TextBoxl.Text = X + R A 2 


Runtime Errors JaMh«uJI AiA iUaftl UJld 

.jiAHHoHI jjLiH) £ jj jjA .a qa jj£I A_aa£ (_yaj^aVi He diAHi -' 

Dim X As Byte 
X = 300 


371 


J^l£a Ju»w / — d ] 


It Up It Up 
















»iij Vj Aj ji ilubll ji jjjiall (jLu £ jj -jx- t iViij <Uu 2 £jj q/tikiVi .lie iliial j - Y 

Dim Y = Single 

Data QULuJI : J$2| ysls 
-: 4JUII QljLaJI fOWI (X) <b»Uf |i (V) 4»U« grid : J$2I 

.Hi Li Lull £ja aILLa jj) JaUjIIj V.B.Net Ail jjajj - \ 

.iliLiLul) qa 4 iVii a £tjit £u Jibuti V.B.Net Ail {J& 4 ijJ -Y 
.jjjjxailt aj£|j ^4 Uaju Lgjjjij V.B.Net AiL £saL3jj ^a L^JLiJl ^jj ^t iliLiLul! ^ jaa -f 
.4ijjjijlt AaLuiaH (jbiii Jiuu Sj£lill tgliii ^jj yilt tliULult £ljit jjaa -i 

.jjjjja£ 1) SjStJ ^a 4uii jiult AaLuiaII luijj (juiAJ ,_jlll lilJl Jujua!! -0 
4i«aIjlt tliLiLult oaus ulUalt tlilAjj cj^b. * 4 _ 4 jij t fl'niTi -"I 
AejjiidJt J . a6 jU ^jtut-uit j * > *». bilUall ^. -i' 4^ia t—flitAi -V 
.4 jahult 4e jjiall tliULult (jAbia (yiii) (j£j) t-ilUal) £jJ t - A 

.4 i^i jjil) 4jaS Ijlt H Li Lull (jAbta 1 jinurt* (jiaj ufllajAll <_iuja 4-ajij - Y • 
.(jLnJl ^jj ukaa. (jjstA ^5 laj 4ujjjAj AaLuia Jill jjjjja£1I Sj£t J ^a £) jaj jljj J£ - Y ^ 
.4~idjal ^yjaSVtj yjjSfl IaIIj jjjjjaSH 4j£ti ^a 4JLuu ,jilt ojjajII jja JAaj jluil ^ Y 

,£>ij ^ut LgJ jjjjiaiJt SjStia £jtA_a ^4 V.B.Net ilit jjiidJlj luaL - t T 
.LfSLkJj yjJt tliULull ,_sldj £jlj jjiid J£l £j 2 u o' V.B.Net Ail lajiuj - Y i 
.jjjjjaSII SjSlj ^liAAutt ibii jj ^a jeUjj V.B.Net Ail ^ cj|jjiidlt ^je ^j^eVI - Y # 
l^c- jJ jiajj tilljjiiall ( jlc- ui ij*jj V.B.Net Ail (jV tAiliui 4llubd dt jjiidlt jjc- j^cV' 

.Uiiais 

a* jlj String j»"W jjiid (jc Dim F_Name As String AjI^' aIaaII _ Y V 

F_Name 

a* jlj F_Name jji“ 6^ Dim F_Name As String AjO 41 aa 1 i _ \ A 

String 

,4ejlj jjjj.aH ^uit l^a JJajj tiltjjjidlt oC- jy*V' AIaa - Y A 
.tlubll 4_ajaj 4ejjj jjjLalt ^ut l^aS J4 ajj tiltjJtialt (jC ^j^teVt 4 Jaa - Y • 

.fSjJ tJjj AlSf Uai jjiid ^uil jjj*j 55City ' 
.^ja^ jjiia ^j| jjj*j 55City -1 
, 4 jjaj»A 4 a1S 4jS? Uai jjjia ^ut jjj*j Name V 
(> ljj% AlV jjajja jjiid ^t jjj*j Name t 
,ilitjjjidlt oe (jileVt ^Dim ^ A*mj - Ye 
.iiutjilt oct Dim >&l jaJiiuiJ -Y 1 

[ ^ (>m> J^l£a Ju*w / — d ] 













.iiiljLlLI (p ^j!k.yt yfl Const >»Vl f ^Vunj _ Y V 
.cjjljoJl p cjte'iS yfl Const >»Vl ^Vu . n _t A 
fltii jj*jj V AuuSj (wit I 4 J SjSlj ^ oj^-» ofr SjUe V.B.Net 4 iS ^ 

.gtLJjLl J±Ui 

fUSS j*z 4-ajSj jwil if! SjSlj yS oJ ^- 4 u 6, SjW^ V.B.Net 41! ^ -f • 

.jyUjjJt J±ul 

. Syntax Error csj*^ '■!“. jjj*j 4L 1 *- 4 cs' ^ Lauii ^ tiaaJt -V \ 

. Logical Error Uaa jjj*j aLI** ujUa a^uL ^a ikkJl _f f 
. Syntax Error tsj*4 ^ 4Le jjllaj jyUjjJt Liu ji JjiLu *Lui ^Lt UaaJl -VT 
. Run Time Error Jj* i'm'I ^Lui Uaa aLp jULj JjxJu fLui fcj ^ ill UaaJl -T t 

," tJ *X=3 + 2 3! 4 ALIL! AJjIjlLI Liu jju X jLlUJ AuiljL' L*jL! -V 0 
,r. CJ AX = 3 + 2*4 4 LIL! AJjIxLI Liu jju X jLlUJ AailjLI LsAJ! -V'V 

: tfJj U« inn nil <yU2l >£| ^UJI Jlfrtll 

ujULuS 1 j Lurt* (ji«j A jnSalt CitjjVl jlxuii <Lu2 - ^ 

AC jJIa (£ <tiV\Aa jjC AjLij (i_i 4,-yt-wa AjLij (i 

luULu£ I ji/n/Vi (j£«j AauiljD JljLI fLauii Aai 3 -t 
Liflija (£ Aaua^^a Jp AjLij (i-j AP jila (I 

jjjjiaSJ) s jSt j ^a baju jjauJi jULi ^ jj -f 

A ^j ipij^ jp> (c H (y <j^ 3 ii^j^ jp 0 

: Salary Laaa^LI L ppal\ -t 

Dim Salary As Byte (y Dim Salary As Integer (t 

Dim Salary As Decimal (£ 
fjk City O'jLla cp AAp*al\ aJu^LI _ 0 

Dim City As Byte (v Dim City As String (t 

Dim City As Decimal (£ 
ub F_Name jj* 1 « CP u^fL Aaua^Ll AiiuLt _“i 
Dim F_Name As Char (v Dim F_Name As Integer (t 

Dim F_Name As Decimal (£ 
u* Gender Cp jpu> CP cP £ -'^ Laua^Lt AiiuLt -V 
Dim Gender As Integer (y Dim Gender As Decimal (t 

Dim Gender As Boolean (£ 

|' Name CP Aaua^Li AjuuLi _ a 

Dim F_Name As Char (v Dim F_Name As Integer (' 

Din F_Name As Char 

[ J^l£a jlulw / — d ] 













u^)\ 


jJjno^U jg—a'ifl 


V.B.Net AiL g-at-L* JjLii J*J jfL 1 ^iJt IkaJI 
Runtime Error (£ Logical Error Syntax Error (' 

^auj V.B.Net AiL J4 jU& flu) j^Jaj UaaJl -Y • 
Runtime Error (£ Logical Error Syntax Error (' 

LfA^i V.B.Net 4*L (JjLuu juU yfl QaaJl - Y Y 
Runtime Error (£ Logical Error (sh Syntax Error (' 

>X = 3 + 2*4 4iiU*ll X II guUJt _y y 

*•<£ ufr n ( i 

JA Y = 16 -12 / 4 + 2 4iiU*ll Y -Y r 

'•<£ "(* r ( ! 

u* a** Dim X As String CP 4i*?. -' * 
X 4* jjj String (v String X (' 

String 4* jjj <!?£?■« JP* (£ 

U& Y ^ ^ jjfr ^j jjila jj& jiAcV) Alta. _ Y o 

Dim Y = Decimal (£ Y As Decimal (v Dim Y As Decimal (' 
i_i)Ua]| ^utl jjilaJ ^uiVt jHI - Y 1 

Name** (£ Name (v St_Name (' 

(jl jjc- jjilaJ ^jtifill (VI jUl - Y V 
(Address) (£ E_Address (v 5Cairo (' 

IJcLa 4^111 ‘UlUIl tillijjilaJ) fL&uil - 1 A 
_St_Text (£ Text (v St_Text (' 

Jj£Jl »<A-., ..•, Ly ualjj]| Culill (jc jilcVI .lie -Y H 
Dim Pi As Single = 3.14 (v Dim Pi As Single (' 

Const Pi As Single =3.14 (£ 
Jj£il » <*.*, "* Aj^ajVl 4-ujlaJl tlulj £e <jileVI lie - Y • 

Const G As Single =9.81 (v Dim G As Single (' 

Dim G As Single= 9.81 (£ 
jA Y AjjIUjI 4juL C_Family #>-Vt JtjaS JJfr ££ o^Vl -Y Y 
Const C_Family As Integer = 2 (v Dim C_Family As Single = 2 (t 
Dim C_Family As Integer = 2 (£ 

UaaJl lift jjjju ^laUjj JJaiuta AaIula i—iltui. AajD ^ Uai, l*j |j) - Y Y 

Runtime Error (£ Logical Error (v Syntax Error (' 
Uai u^Dimension X AS Byte AjII* lie ^Ul UaiJl -Yr 

Runtime Error (£ Logical Error (v Syntax Error (' 


L- 


=C 3 = 


; j*u> J^l£a «Lulw / 











JAY = 12- 2 + 4/ 2 ALl*^ £SUH -t £ 

Vs V* "O 

j* Y = 12 - (2 + 4) / 2 4iiU-U -t ® 

VS V* "0 

-: dm QljLaJI ^U1 (X) L»SU ji (V) *»1U ga : ±1U\ JlfrJI 

,gemUijJl 4 ji 4ulii 4 j& 4amijJl 4*J jcIjSj j»ljl!V) jjjjmaJI £>4 qjJ -\ 

.gemUijjll Ja)4 l$u2 AJLaximlu ^jAwujJt (jiLaSM CuluS) ji jjiiaJ) (jllaj 44au - Y 
.4jiJl aLiu ^3 4u jauilj Au&laVI fUaaSH 4jajj IDE jjjLuH 4iu ^auu V -V 
.4.auiH ji i_jij*Jall 4 Jafr Jjauu £jLH ji ^a->11 4 Jafr ^ j;1 ■ ■■■>■" CluLixIl Liu tub j]jl <ja - £ 

.Cu) jjII (L&1 JlLa T, \ £ j jluu yj]| 4ubab j]| (Ja) 4uua - 0 
(jj-ajll ^J) jbuuH <j-a (jjj£j lAAuiu lulujj <jLi ^LuaJl jjjjlHI ^a Ci44*uj (juIjiSfl Cdal4j lal -“I 

jliJl yJj JalLI <>j 

ji juiiaH <jbu £ ju <j£. ‘ «4_ua £ jJ (j-sajjuxxj 4uC iii4au ( _ 3 _ilSl JAuuH 4u£ j-UaaVI -V 

6. ji CulLl 

.4 a* niH j Lujball CjliUc. JjAuu ^jJallj jmaJl CblaC (ji LuLuaJl cublaxJl CibjJji JCl jfl (ja -A 

Y A ^A S = 2 bul£ |j| (10 + S * 4) AuttiH 4 u1a*H Liu 4auii -4 
.Jala UfLuui 4ijxL bitjjuLt fL&uii <jc (j^lc-Vb ^jL - \ • 
.Const Pi As Single L» Uaa (jabiu 4 jilt _Y Y 
.Y 0 gSUll (jjSj 2 + 3 * ( 4 + 1 ) AxiuLt Liu Jau -Y y 
J a-Lui juilaH Cilujiam <_£>£ 4ue 4ula Integer £jj 0* jJ*i« (jS (5.2) 4uui2! (jjJau 4jc. - Y Y 

. (5) e#A Lj-ujau fJ ^ 4uuii' L)' 

( _ J _2 iuiiUl jJc (_>aSrt 2_a .j 4 jU& (Jj-uu Lo_uii!t 4 jUfr (ji LuLuaJl biLulaxIt tulu jljt (j_a - > £ 

.bu CjjJ liLjjU Jt jauiSt 

.4ji u iiVl ^ ylcVI jjim.aH ^3 JaSfl j jimLl (ja 4uualjjH bitjjjaiH uluial ^ o 

.^laUjL) JJLuu ftui Igumi jjJLu V ^ua (^A Cut jjJl - \ 4 

: (ji U« ^nnll 4dU^I >^l : gdljJI JI^JI 

4uuuiH j lu jbaSt (^aaIaC (juuu ^51) 4ulaxH (LuluiaJ) CiUlaxJt Liu uuLi jljt (ja - \ 

(jam La Ji (J ^jLHj ^aaJl (_a t>il jSSft (+j ouuVt (I 

j jiuu> J& ji^AtJaiuiV CiljjiiaH ji CuljoJl (jp (j!^Vt (ji-aj -T 

+j 4 i (> Ji (J Event ^4aJt (_a Class * (*+ procedure (' 

2 + 2*4 4uia*J) jljU 44a. -Y 

V^(4 ).(+ \ ‘V (<+ ^ 0 

[ v J**> J^L£a Jlulw / :IJh&l — t i ] 















diAxj 4JLUI j_al jV 4_alxSI 4ij ^ f llaxi jlaU ijjll J4JLS -lie- di.laj ja yjJt f UaiSft (jA -i 

,^olui jjC JLuu JjSJl 4 jU£ AjC- 

Jjxui La JS (J Jjt < a*ti f UjI p Uaxi (_a. Ajilaia f UaLI (i_i 4 jj*J f Uaxi (1 

: IajS Aiax JJx -0 

A+422*A+4 (J 135=14*3/2 (-* C=9 (* A+4=22 (i 

: >y ^nnll qUjll JaSI: g*»Ull Jl^Jl 

Boolean - REM - / - Byte - = - p Uj! - A - Lu! >iJ! j l*\jj*1a1\. Const 

. Sjjxa»d! 4-*KJL LuLUI Cf. 

.‘Lie ££teyi (jlLaj JAaLj.Jlaaluit JjUaj - Y 

<*■•*’. ■.«'* (jLull £jj jla (jA jjSI 4_aj2 j<aii^a!i .lie- diJxj. fUa^Vt -V 

. ^j ^Uaj jjjjxaiJI a jSIi ^a ^ Y V Axjxudl <Uaa jJt 4_ajill jaoJ - * 

.(jibuiVl iji.^jLuiaJt . A JjaI) J^Ldt ^Vn nj - * 

.^taUjdt JjS 4_ax ,jj AjC- ^,jldl I j Ujj »iaU ^a .4 _aKj IAjj yjJI jk^Sfl -V 

.(jAuiSn .^UuaJl (J^Luailj.^ » 1 " a " jj JjaJI J^jL-dt »^"'■ ■•> _A 

.gdiUJI Lj5 + 2*6 AjjLuisJ! Axii^JI liLu Jau _ ^ 

.Sjlill JxluiL ^ jjAill i jk- .(j£UI Jajda ijSaj - \ • 

.jA 5 + 4 * 2 AjjLuisJ! Axii^JI iiiu gLiU - S \ 

.^ ljj% u jjijj t-ijjjj £ia igJ Ajiac- &a jiist Jj+j <Uix ^ _ \ Y 

.Jji * M*ti p UjI ujjj*j V duLil) iIa .£jia iiuiili ^ f. o^yi jj+-»j - Y T 

. £jj L>a jJ*la ^ Ajjjxj ^Lj udllalt jjfr - Y i 

. £>a jA (Y 0 0 • ^ 4jJJC pj£ ILL ^JJidt jjiidt _Y 0 

.^ False j' True 'LaAJl 111 jjildt -\ ^ 

: griJLJI Jl^xJI 

_. UaLJl AAa 4jJUI) Jljsyi ^ p UaLJI JJx (t 

Din My_D As Date 
Const pi As Single 

_. UaaJl AAa fj AdLUt ^a UaaJl JJx (i_i 

TextBoxl.Text=R+22/7* A 2 

D=R*+3 A 4-2 


-: A >» 4MLy W B >» >^| : gdUl JI^JI 


B J>«dt 

A 

/ 

jji (jjJLjj ^auu LiULdl ( ja | \ 


l 7 ^ 


j**> J^l£a Ju»w / — d ] 







































jJjno^hU jrt—] 


* 


JA (JrtUrtVlti <>l*4 

Y 

Decimal 


A Aui&]| jUj! ^2 ^VuaTi 

r 

= 


Start Debugging 

i 

F5 


40*^1 i^UlaC. LaHI j»4Vu.n 

0 

Integer 





Branching £jA*JI: ^UUI J ^" 11 


Lla) ji jtjJj jIajI jJk (jjflljJI Lit ja fjk £j-al!l * 
.£«*-» Jt>ui 4 j1a) yip fUj 

,4a*ijjJI 4i! JfrljL (<iajjljail) Jail ujIjJa Jjjjh'i jA £jii!U jjSil * 

-; liLjjj JIjajAII AsL! ^ Ajjauj SLa pl*lua Ia«jj ^jilil (jc jjjjuII * 

If ....Then 
If....Then ....Else Ai** 
Select....Case aIa -? 

: <LJa>«kJI Ql>ua*JI 


.AasjjJI JjS £>4 f ja jA ( jh jjjjuJI * 

False dal jt True ui ^a j Afth'ta 4aj 2 gtiU 4j Ja jjjjuII * 

.AaiSj cAjjljLa cdulj ji jjiia f I Aj^Ij qa Ja jJiil j-u fl tilt * 

: cL>y (ji <ujlfc^l QiULfa» 




CT^' 




J*-^' 

< 

(> J^' 

> 

^jluu 

= 

^ jU-j ji (> ji^ai 

< = 

^ jUjj ji (> jjSS 

> = 

^jUjj V 

< > 


If ...Then AlftA j»l^bmL fjAaJI -1 
(c$ J ijS) JaA 2 Alj JjJj ji .Alj jLja) Jj AJIa J ^4aluu AhuiMt If....Then AIa * 

: j^Vt Sjc-li * 


m 


If L^y* jt Then 

Code 

End If 4 ±a Ajljj 

jLm ^3 Then ylaj« j**j Uj*j ^Lj If >aVl £* oj 52 If.. ..Then aLa * 

-■* jjlS Ijj lAliiij ujUxa^t j^IjSfl - ji j^Sfl Aj * 

End If ^If 

4ajJ Cul£ J\ ^aU AJLuij jlgJaV 4 a4jjJ| Jj£ t_u£l ; Jlla 

J^l£a aLutW / ^la^l 










































jJj)H0^1iU jg— ] 

X> =50 0 • csjt (> j^' I 

: ^UJt ^j>»j2t tjte- (jjh-j JlJeU * 

1 jj AAjHil jj f Js- jiiil liej <Aa. jiit JIajI ; i-jjlhaitj 
Aj AJLuij j^Jaj * • fj jluu ji £y» jjSI AajIII Cul£ 

.(jaU) A_a]£ 

; JaJt 


Private Sub Buttonl_Click 

f!ja.V! Aa!Aa-> 

Dim X As single 

X (x«W -t 

X= Me.TextBoxl.Text 

OealSl JjAl-a ^ X 4 auii uW (j^aaj ja»l -V 

If X > = 50 Then 

If L>iit Al»a.-i 

MsgBox(“£*U”) 

True ^ aJUjjJ! -° 

End If 

If L aIa^ AjI^J _“i 

End Sub 

f lj*V! Ajl$j -V 

jdUJi (Click) ^ ^ - • "<_• 

:(Button) >»Sri jj j 

Private sub Buttonl Cliolc 

^ s “" J 

I 

En “ ,x _F K 

Dim x Ajs Single ^S. 

' x _ Me .TextBoxl.TextA 


If at >— 50 Then ) 

S. MsgBoxC'jj-U") / 

^^End If 

YES X v 

X >=50 A ** 5 E®“ 

End Sub 



“ . 


End If ljjJjj J^> ^ If ia>-2t 4l*?> <jIjS 
If X > = 50 Then MsgBox( M £*U") 

If ...Then...Else jOlA^ynU -V 


If jaj^l\ Then 

Codel (c - ^) <j^ ^ >>'jVl 

Else 

Code2 (^) -la>-2t <jA*J (»■» 41 a ^ U jjijj fu J&\ j->!jVl 
End If il** 

uiA*^' j' 4JU If....Then...Else 4i*a. * 

i^tj jk« yi Then £ Uj*j <»ii If <> OjSli If....Then...Else 41** * 

[ 0 &U> J^l^a JuakM / :IJb&l — t i ] 



























Code 1 JaijJjJl (jl£ |j) U jjflli t-jjUnoll >a)jVl Afrj)a->a j) j^Sfl Aj ^Ull jlauJt * 

( ) '■*'■*■« J lAJjiaj jJa« Else 4 -aI£ £ * 

Code 2 ^.jv^a Ja(jlS )jj U jjflli t-jjlhall Afrja->a j) yti\ Aj ^Ull jLuil) * 

End If -j If * 

:tiiUa»)U 

Else Then 4 -aK ^ j-rljVl jjili ^ True -^jH' g 3 LS (jlS tit _ ^ 

End If Else 4 -alS ^ >>!jVt jjiii ^ False iajUt £211 o'! '^ ' 


0 . fjjluu ji qa jjSI uillall AajJ CiilS yjj pAU Allui j 4aaijJ) J j£ (_u£1 

a. t> Jai , J\ u^tJAJUjjl^jJX> = 50 ^ 
: JaJt 


Private Sub Buttonl_Click 

Dim X As single 

X= Me. TextBoxl.Text 

If X >= 50 Then 

MsgBox(“£*U”) 

Else 

MsgBox^^tj”) 

End If 

End Sub 

*b*V! Aa\±-\ 

X (X«w jA*ia Cfi -r 

j^l -V 

If kj£l\ Alaa.-i 
True aIa y ASLajJ! ,_£j& _e 

Else 4 ^is _n 
False aIa ^a aLu.j _v 

A1<a AjI$J 

* tj*Vt Ajl^j -V 

(Click) ... re. 

:(Button \ W»V 1 u , idLaJl 

Dim i As Single 

x = Me .TextBoxl.Text 

If x >= 50 Then 

MsgBox ( Vlj" ) 

l-JS-J 

Enter X y' 

NO YES 

X >*=50 

^UlTse "v. 

MsgBox ("?*-* 1 j")^y 

^ , “p V 

4 - 

End~TT ---" 

w 


End If UJ 4 JJ A*tj jkw ^ If AL»a AjU£ (jlaj 
If X > = 50 Then MsgBox( M £*U") Else MsgBox ("uu-lj") 

[ ‘l J^l£a Jlulw / — t i ] 

























u^)\ 


jg—a'ifl 






Dim x As Single 
x = Me .TextBoxl.Text 
If x >= 50 Then MsgBoxC’j^U") Else MsgBoxr’«d»ij") 

J5U. <> JjIu-j Form (J& jS^i J,JC, W : (f) JtU 

^ "cjJja fSjil" jt fSjll" SjW 6 ’ j4^!j N ^ ^ ^ ‘o^ 

,4ltui j 


Private Sub Buttonl_Click 

fl J*V1 AjIJj -i 

Dim N As single 

N Cfi" -T 

N= Me. TextBoxl.Text 

j^l -V 

If (N Mod 2) = 0 Then 

If la ^1141^-4 

MsgBox(“<>*jj fSjll”) 

True 411-a. yS iLuijJI - e 

Else 

Else ^ -t 

MsgBox(“is J j® 

False ^ ^ 4jb-j (jlajc -V 

End If 

la^ult 41. aa. 4jlgl -1 

End Sub 

f Ij^VI *jl+i -v 



■ i ~iSj j (Code) jj&H 
:(Buttor») ,>&i _xjf ooiiJ) click 

Dim H As Long 
N = Me. TextBoxl. Text 
If N Mod 2 = D Then 

MsgBoxC^jJ f»j>j ") 

Else 

MsgBox ( n j ijj t ") 

End If 


\ = giull (io Mode 3) JLl> ‘ Mod yj'-msll * 

(N Mod 2) jw« 5H N ^ If ( N Mode 2) = 0 Jjdl * 
fSjl' <1X3% (j^ 3 <^M') c^W uJ-^ Y JjSj N £ul£ t J) * 

.cS-ij3 ^SjJI (l)j% (jiua (^jLuy V (jSUJI ) L)J*^ ^ JjSj V N Aa» 9 Cul£ |j| * 

End If aj-iJj a*Ij (j* If Ja>£ll oIaj 






; J^l£a «Lulm / 


























If ( N Mod 2) = 0 Then MsgBoxC'^jj fM") Else MsgBox ("cs J j* 


Select ...Case *U* (Ol^db tjiiA | - r 
Jaj>« liJUfcj aa! j >j*i« AaiS LS ls- tjjufc4 ^jiUt Uijc. f \Vu,n Select .. Case Ai*?. * 

.£ j^ajj Aljf*- >St Jj£Jt <>*Jj JtjSVt £y> j2jj j ill jaVl 4 #jjjS 

Select.. Case Aia^J <wUJI A^yall 


Select Case 

Case Value 1 

^jVl ASU11 

Code 1 


Case Value 2 

AtjliHl AJLaJl 

Code 2 


Case Value 3 

Aillilt AlbJt 

Code 3 


Case Else 


Code ALLuiIt ^j£II J£J Ajjluui jjalall A_ajij <j£j ^1 l3l Alla. ^ aiiiij <_$ ill jj£Jl 

End Select 



.(Sjjjfr JjIjj) Sjjjc- Lj^ji 5 ju ^ u .m Select Case 4i*?> - 
.jjiiAJt Uj*j ^ Select Case t> uj^ Select Case - 
.L jJilt AjL ^ Jjj (ji>j Case - 

IjVl ASUilla>il! A^*a aJIa ^ ^jlkal! j jS 1\ JS3i\ jkudl £ . 

.JjIjjII ji jjc j\ a 1 a*jUJ) >stjVl (»j Case jtj£j & - 

j-iaa (jiaii jJ Ijj AJ AjJUJI iji" j»%i iajJiJt U j*j ^jL Case Else Ai*?- - 

.ALLuJt Cj^laJl ji JajjAIt 

End Select Select Case 4i*a. c*^ - 


jj-M ^ TextBoxl o-aili tij* AajJ (t > JtU 

SjLjfr ji " jL^aJt jjL«u" SjLjfr ji " jL^aJt Jji" SjLjfr Label2 ^ <_£>*J " jLjlk!" 
























jJjno^U jh—] 


Private Sub Buttoni_Cl±ck <ByVal sender As Syste 
Dim degree As Single 
Try 

degree — Me .TextBoxl.Text 
/" Sa-loot 6353 degree \ 

Case 0 

Me.LabeX2.Text — " >jl»" 

Case ts < 0 

Me . Label2 . Text - " j,k1i oe_." 
Case I is > 0 

Me .Labe12.Text — "j»« 11 J>J" 
i End Select y 

Cateh ex As Exception 
MsgBox ( " a jlc .» • " ) 

Me .Tex tHox1.Poems( ) 

Me . TextBoxl. Text — " •• 

End Try 


End Sub 


Private Sub Buttonl_Click 

fljaVI AjI-Sj A 

Dim Degree As Single 

Degree j^ 4 Cfi 

Degree = Me.TextBoxl.Text 

O^^aj jal -V 

Select Case Degree 

A2Jla. (_ya jC- (_jill jjiiaJl ^uit JjAaj -i 

Case 0 

Degree = 0 <^jVl aL^' -® 

Me.Label2.Text= "ji^= " 

SlJl ^ n jL*a jj luu” Ae-Lla -1 

Case < 0 

Degree < 0 AjjljJt AlaJI -V 

Me.Label2.Text = ^2" 

SUi (j& "jLual) iIiaj" A&UL -A 

Case > 0 

Degree > 0 AjJIjJI A5ta2l _v 

Me.Label2.Text = 

o'jj*J) SbS ^ "oLall (jjfl” AeUla 

End Select 

Select AiaaAjl^j-V 




uujjj <U JjSn o' Ap- (> ComboBox ^21' SUi uujjj A 

.1 iiA j (Index = 1) yS ^ (Index = 0 ) 

.u-ajJ' cli-^ »' J ' o^; Me.TextBoxl.Focus () 

.o^jJ' S'Jt £lj 2 ) Me.TextBoxl.Text = " " -? 

iSUijJt o^jj Ok jj Ajj j MsgBox = ( ) -* 

[ ^ &u> J^l^a Jlulm / :!Jh&l — d ] 

















jg—a'ifl 


If X > = 50 Then 
MsgBox ("jaU") 
End If 


Branching £j£*JI: (jdLUl J nil I <£mI 


,. la .lie. "^aU" Ig.jl&j AJUmjII jl^Jal ^jj - \ 

jA JjSJt jaiu juU (jla X = 50 < '- a ^ tjj -Y 

.ja jjSJt Liu £iu £ii x = 62 buis iit _r 


If... Then.. Else £,jLII 4i»»J <Lal*l) AjLuaiL I m"n««<QiuiVt Cf- i-xi; Y <_>« 
If Conditional Expression Then Codel Else Code2 

( 0 ) l>® ilulS t jj Y jbuLl <Lajij jjj£u Jajut jjj*j (_u£l - \ 


, 4JLuij Jjjibfl ^ "uJlui (j^aj j^iaj J j£j 4_aUil ^ Codel J-bbui -Y 

•Liiij J j*-' I jj 4_j| Jf „ Then .. Else ^ '*?' Labdt AjLuuall j k. -V 

. fit (jM* ^ 'j)j. 

. JjjaJU LibH-i 1 *j«*‘" 4 AlluiSft CP *»1 :?L 
Private Sub Buttonl Cliclc 



Dim x As Single 
Me .TextBoxl. 1 
If x >- 50 Then 

MsgBox(" £* LJ") 
End If 



■•J i-orml 

l? \mtm 


auxjjJI Jsral 


. jA JtaUjjJl (> (jijiSt - \ 

.. SUi Jc. . ±sJ! jij I jj JjSJI jjfcj fu -Y 

. J* J X t* - r 

.t^j ^ Me -* 

j* jjSJI jjiu gbU jj% <jjajJt JjAu-a ^ (50) ^uiJt JLkJj |jj -o 


If.. Then.. Else jLJt 4U->N 4_aUJt 4juaHj Ini'niia JjilL ^ySlLl JjJxSl ; 




If Conditional Expression Then 
Codel 
Else 
Code2 
End If 


; «U*M / ^Ij^l 











































«Vt ] 

" j^>" 4_oIS Jaaj 4JLu<j (jjlLa jl^JaV illljj 

" j^a«" ^jU-j Country jj*j-»1' 4-«j 3 Cilli |j| 
"Egypt" Jaaj 4 JU 1 J (Jjllua jflaj ji 


Jjsl! 


(* 


^jLlll JJJJull 

t 


True Jajdd' JjS^2 j* 

Y 


False ^J“l! JjAaj f JC t_itja. 

r 


Dim X As Single 
X=Me.TextBox 1 .Text 
If X>= 50 Then 
MsgBoX ("jta.U") 
Else 

MsgBox( M Sr^'j") 

End If 


. JjSIL LLxlum Aullult 4diuiSft i_f- c 

jA jjill Lid 0 jIj (jla X = 76 duli lit -t 
jA Jjill Liu 0 jU (jl2 X = 49 4-*jS Oilli )jj -Y 
Lis jlau j^JaL Block If -J Jjill Ajlii is i -? 


Dim N As Long 
N=Me.TextBoxl.Text 

If N Mod 2 = 0 Then 
MsgBox r^J 11 ") 

Else 

MsgBoxC'LS-^ja ( 4jM") 
End If 

jltfll J jilt iyit jJ Jau AJUlt iliuVt (ituaijV 
(Jtjjfr Jjja "^jj fSjll" O^ailt j$Lj iLaau Jjill JjC -1 

Label2 ^ "cs-tA fM" o^*l' j&j Labell 

,4JLui ijll JjjJ u<i qa Sf Jj 

Integer (N) jjilalt £jl JjjIL -Y 

bli ,A_Oua j ;"'SJ t jjfcia Ajjjiaj ^jLj Ji J.llu 2 ^ ^j jt JjSluu Jjill ; V(_pi 

,iillL aJLojj j^Jaj j Jj 2 JJxlt (jlS ! jjj .OIL LlLuij £jja jfl laj JJxlt <jli 

.1 sLiu 0 jU jjiJ l$jjj«ajj Aj^IjII fUa^Sl) uiluuil ixj Jjill 4jUi is\ tujlhalt - 

Dim X As Integer 

N=Me.TextBoxl.Text 

If N Mod 2 = 0 

MsgBox ("ts^jj psjil") 

Else 

MsgBox( M L5^j2 fSjl'") 



Dim Degree As Single 
Degree = Me.TextBoxl.Text 
Select Case Degree 
Case 0 

Me.Label2.Text= " 
Case < 0 

Me.Label2.Text = " 

Case > 0 


. JjSll t> oijilt - t 

j^Li Degree = (-3) o' |j] _Y 


; j*u> J^l£a «Lulw / 













































jg—] 
; (jaIII 4j 4JLui^1I 
duAlt £$li La-liC JjUl ilijj j»JJ -V 

.^lt Sbi J& 

.ja Degree £>j -* 

: <yJaUll QjLaJI jqUI (X) <UjU$ ^A<all ajLyJI joUl (V) <w^U gag a jri I 
>jj*j (>> jiist jIjjII 4ajjj y-Sfr fl-u jtjiJt jIaj! 5ju yi V Select.. Case 3 Ia». -1 

.JzjA 

.Jaia a^Ij jbik! jja j 411 a ^Vuim 4 hu ajti If,,. Then 4la& - T 

. ListBox #b! yfl jiaaII f&j AijfcAl Selectedlndex -? 

4-La L^t uiIja. OLS lit Else j-Al yJS y-311 (j>SM) j-ljVI 4_frj^ 1*12 flu-t 

.True If..Then..Else 

Select.. Case 4 La ^ lsjW*! Case ..Else SjW 6 ’ ^iaIuI -® 

.4_Jajui!l (litjjjjult (jjjlj < jt > Jia 4u jIAaII (1£IaIila f^ViuM -“l 

.jAtj jj*I« 4ju5 Ja Iiaaa (jljaJI jIajI) oj% b»4j& Select ..Case ftiiuuil J4aL -V 

v ijJUJI II U (I -A& 

1- M.TextBoxl.Text ="j*aa" 

2- MsgBox("^ 0 0 j 

3- Me.TextBoxl.Text = " " 

: tfJUll JaaJ ,0jUll J$SU ^1 (H 

Degree ^ Ifjjjauj TextBoxl #bVt csj^ 

Label2 #bi ^IaLI Jjjla .aj SjHIaII" SJue. - y 


: 4*JUJI <LJa>*dl tiidjaMA*JI ^ <MaWi J2 J : 1 ♦ Jd 



(A^ 1 jjjjuII 

4uul!t £ 

1 

A = 5 A 2 + 2 



2 

A = TextBoxl.Text 



3 

B=A 




4^jjJt dill I jj Label4 u'>^' »bi ^ (jaII) : ^JLnII : \ S ja 

J-flajj 50 csj'-ul jt £h» >ul! TextBoxl u^- 5 ' Degree 4 _Hia21 

50 JS' 4 Wuti 4 a, jjlt dull I jj ((-iu) j) 


Dim Degree As Single 
Degree = Me.TextBoxl.Text 

.Degree.Then 

Me.Label4.= ". 

Else 

Me.Label4.= ". 




































u^)\ 
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Loops & Procedures <Ujljm QUiaJI. AJUJI Joaall 

<yjljai ^LJ\ 

.(III JA »JC Jdius JjS Aiiii j) j£j jA * 

Do While ... Loop For ... Next <> jIjSjII jjiij * 

For ... Next jOlAAii-il -S 

.( I Lilia uijjJLA jl jSjJ! (III j^ JJC) dll jaI) (j- 3 JAa-a (jixa J jS jl jSj] ^Vium - 

For ... Next <wLdl d^yall 

For Variable Counter = Start Value To End Value [Step] Add Value 
Code Ujjiij jljii uijikoii ^aijVl 
Next [Variables] csj^l 

.(isjte j' J# 4 - 3 ) iS&j CiA O' ‘f*-' :Variable 
/UoSj Aa£ ^j jIjSjII AjIij ji jIjxSI AjIjj <Uiia; Start Value 
.Ldajj AaoSj a. ajS yfc j jlj^l Aj^-j ji 4 aj 3: End Value 

.AjljjJI ySa. jIj*JI I41 jjjj ^l iaAJi ji jIjxSI sJbj kjJk : Add Value 

.Next For AilaJI AjIjj (jjSij «j'j£* Jlj-^l j*i ji j-»i (ji :Code 

^i jl_uc.li Step Add Value 6* * U*1*kVI (j£«j 4_ila \ uiaj^ SjLjjll 4 -ojS diilS Ijj _ 

. I luaju JlJxIl SjLj jl AoualjiflVI 4_ojjUl 

,Aj jLu^l Next JlJxSl jixli ^uil 4uU£ - 
.jl jSjII Alas. AjIAj Jdsu For 4 -ol£ - 
jljUJI diljn jjc <L (jjaJ Counter JlJ*£ J isj*& ji ^j jj*j-» For J* - 
End Value To Start Value csjLuy - 

.^Lajinil Uj±su Aujdc ji A -t , ivn <ooSj dilji*i« Start Value , End Value ^Ijj*j^I - 

.Aulgill Auull Jjudjil ( _ ? ia. 5ulJill A. <u2 (ja AjjIjSjII <HaJl j&b JjSJl jlj£i - 

jljUJI Auljj 4loa. ^ ji jIjSjJI AuLjJ JAau Next - 
.AujUlkl Ljui Jdil (jo*-ja (jii dixdaj [Step] - 

[ (>m> J^l£a jlulw / :Ia&i — d ] 


















,L2aji J& JjjJ af*-ja aw Next [Variable] (»"<' - 

t * ^ t * <> JlJfrV! JjSSlI JjS jjlla 

Dim I As Integer 
For I = 10 To 20 

lj& V" ; \ ^j_4 jlicSfl 1 4JLuj j j faj <*> ^jj-ajjl SiaU ;(t) wyjJti 

: ^UJt JliJt yi US **r yll t <> JlJfrVt JC" jj^LsuaJl 



4_^_aijJl Jj£ 

JjaiiJI 4jaj ji. 

Private Sub Buttonl_Click 

Dim M As Integer 

For M = 1 To 3 

MsgBox (M) 

Next 

End Sub 

( » 

C ) 

| M-, | 

lalse " '—- 

-M<-3 

Trufej* | M= 

M-t-1 1 

/ msebox / 

_/ M / 

HJ 


JaJl Cjljiai. jjm ^ua jj ^UI) * 


gjLUt 

(M) 

jjSJl jj. .Vi 

- 


Dim M As Integer 

JtJxSt jjiis ip£-)i 1 


^ AjjlJlVI i-uill 

For M = 1 To 3 
r ; ^ 4 > m J'Jsdt AjIjj 

\ 

t 

MsgBox (M) 

M 4-oj£ <£■ Ula Alaa. 


M=l+1 SJljjil M 

False gSUll j AjLjiJt 4 juL ahjIaj 

Next 

JtlxSt (Jail jjjajj For ^Ias, tP! g-a'-jjjJt Jj*J 
ji (j-« Jii J 1.1x11 <Laj2 Cul£ 1 jli 4_aAI M 

.Sjbjil JtJxIt Jjjj AjL^I 4 sj2 ($jLuu 

1 

T 

MsgBox(M) 

M 4 -«j 2 A^Ula jIjSjI jIjSjII 41 ax 

- 

M=2+l Ap- M SjLJ 

Next 


[ J^l£a JLUkw / — t i ] 









































<1)0)10*1! - 



False gjljltj ^«jSj ai^jIaj 

^ ^ 1 ‘ill j^yi^ 

r 

r 

MsgBox(M) 

sJj^It M < '-«ja ic-USa jljUll Ala*, 

- 

M=3+l Ap- M 4-0 SJbj 

True gjljltj 4-«j£j AljjlL> j 

Next 

(jjiuJt ft j^yt (jjiij 


: \ <>» Jl-ieVl oijfr j»jj ySl TextBoxl 0 «j Jj-iiua AiL2aU JjUJI i-ujlUt Jjc. :(t) MdjJri 


."T* 4 > JlJeVl (j^sjC " jjJl yle jiiJlj tSUjj MsgBox ^ IgjjajC. <> SfJj AiklJj f 



: ^IjJt £bj) QAlil jjj^j ^ lg.Ja. r j jl jaj IgjjajC ij'iVij Cjla. JLui jjuuajJ : 


.(JJ 3 JUJ (jjjjfl J 3 (jjjiuAui Jsjj] (& ) JsjjJ) J^lxA ^t^Vnilt ^JJ - \ 

.o^' CjUj 1 »u> £uu>1 Me.TextBoxl.Text =" " fS -* 

.jk«Sn jj*jj jjuj^ True uj^ TextBoxl SIj 5U MultiLine ^aLaJl jjj*j fi _r 
.jjj^ jkuij JIajVI ^Ui# jj>j AiLusV vbCrLf £*jIjJ 1 ^l±klul ^ _t 
Visual Basic Carriage Return Line Feed 4i*aJ jU-alkt vbCrLf - 


m 


jjjaj (jjAlua r JJxSl ujjjs jjja ij*J jljUjj ^jauTn JjjLuiJI JjSJL 1 nt'u «a ; ( T‘) wyjJri 



I . ' ' I 
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Private Sub Buttonl_Click 
Dim M , Product As Integer 
Dim Str As String 
Me. TextBoxl.Text = " " 

For M = 1 To 12 
Str = 3 & "x " & M & " = " 

Product = 3 * M 

Me. TextBoxl.Text = Me.TextBoxl.Text & Str & Product & vbCrLf 
Next M 
End Sub 

M * 3 (j-a Product j»-“W Jr^ ^ \ 

M jjilaJl A^ul! jjjju J£ £a tilljj 
(3x1=) 4_L»a. jsJi <u o>M o- 4 Str (*-“<4 ^ 

.Str JAStlalt ijjjiaJl a A .a'l ]yj jjiialt A_ull jjjju J£ 

: ^UJIS uj4j Str , Product uljjilait fU*J u& o^V' ljjA JjU-JI JjSJt 4 UjS * 
Private Sub Buttonl_Click 
Dim M As Integer 
Me. TextBoxl.Text = " " 

For M = 1 To 12 

Me.TextBoxl.Text =Me.TextBoxl.Text &3&"x"& M & "="& 3*M & vbCrLf 
Next M 
End Sub 

(>a AJUj) (jaatall Ljj^all JjAa (jaa ij xl (jjluJl ^ ^LaUijJl JjC ;($) 


m 


: ^UJl JlUSl ^ US TextBox 
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Private Sub Buttonl_Click 

Dim M , Product, Num As Integer 

Dim Str As String 

Num = Me.TextBox2.Text 

Me. TextBoxl.Text = " " 

For M = 1 To 12 
Str = Num & "x " & M & " = " 

Product = Num * M 

Me. TextBoxl.Text = Me.TextBoxl.Text & Str & Product & vbCrLf 
Next M 
End Sub 

,4j JjJaJl ^ij JlkjJ ^ TextBox2 j»J - 

TextBox2 O* OjM Num ^ - 

:<ujljUI QlilftJI ^ ajLjJI <ulA*ll£ ^ 


i4_Li 4_aj4 JIJjlSI SjLjj Cul£ ill Ajlgilt A^u2 ^ LaJlJ AjlJiJt <Uu 2 tlul£ ALluilt AliaS?! ^4 

Step aJl_j j (uS 1 nSaj Aoual jj4VI SjLijJl 4_aj4 cLul£ l$-ii U£ 

dJi! ^ua jj JjiaJlj AjIIui ji AjjjjiC ji A\jwi Axaijj <Uu4 ,jj£j J&4 


jj_ill 

Jlidl 

For I = 1 to 10 step 2 

Me.TextBoxl.Text = Me.TextBoxl.Text & I & vbCrlf 

Next 

4_jJj£I! <>aj_*J 

' * J\ ' 6- 

For I = 2 to 10 step 2 

Me.TextBoxl.Text = Me.TextBoxl.Text & I & vbCrlf 

Next 

JllfrSft <>aj*S 

' • J\ ' 6- 

For I = 3 to 20 step 3 

Me.TextBoxl.Text = Me.TextBoxl.Text & I & vbCrlf 

Next 

JjSj yjJt JlJfrVt (Ja. jx! 
r (j_a r 

T * w 1 ! 

For I = 10 to 1 step -2 

Me.TextBoxl.Text = Me.TextBoxl.Text & I & vbCrlf 

Next 

AjxjJI) JlicSfl u^ajal 

\ > (j_4 L_l] jljj <L_jj 

' tP! 

For I = 1.5 to 0.5 step -0.05 

C a U-« (jijad 


[ v j**> J^l£a jlulw / :ij^i —d ] 
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Me.TextBoxl.Text = Me.TextBoxl.Text & I & vbCrlf 

Next 

• , • ® u-aSllij • , o (^1) 

For I = 1 to B step C 

Me.TextBoxl.Text = Me.TextBoxl.Text & I & vbCrlf 

Next 

\ 0-« JtJ_fr^t (jlaJ_»l 

aJL^jJj^LaaBy-!! 

C AlaaS 


Do While.Loop alftA jglJAinl -V 

(jj*-a la ijJu { j£- flu lajjj Uuiia Ajjlgi ufljjxa jjill (lit jaII qa JJal (jMA J jS jt j£j ^Vium * 

.jJali j£JuJ jljllll (lltj^ JJC AijJLa Ajli. i.iiLs ( _ ? $i (illji 

.jjfca laIj*i ( _ 5 lc. f lu (_ijlta jj £■ (lit JA J£ JAxa Jjl iiLij jtjSll * 

.1 j) j£j!) jjiij laj*l (jt Lallla uijj*. a jjfr (lit JJC Ji^_a Jjl liiij j) jSjJ » (■%-., ..-. * 

^ut 4_jlliS lie jtj^ill (j-a £jjaS)j TextBox (j^llI i-iiLlalt fLa-uit 4 _jUS jt jSj :Jlla 

End 4-y*-« jt (jfa 

' l=j-^ ‘t-aaS (jti ulUa Do While ..Loop a ^ a *- ^ * 

. False tilal^ jtjSHt la ju> 4_ais ^ u<vi u.iic- >atjSft jt jSj ciijiij True 
Do .. While.. Loop jjf»l ^aUlt Aa^alt 
Do While Conditional Expression (J*j « ja*j) —» 

Code —> U jail! jtjSl uijlkalt j->tjVt 

Loop —> jt jSall 4iaa. AJLfrj 

((-iaj a J1C Jt ffi iiiV illjj £ jj-aill aiili jJk t_a£ ^ j j -ila Jl aiali ; (0) wyjJd 


^111 jiijil ^ ^ ,j_a LjcL^aj 4_±ij* 4_jJjiIt JlicSfl j fl fa* "4_iJj2 JlicS" jj ^lc laLualUj 

j»5jJl ^Jisk t (j-a Ljcb-aj 4_i&jjlt JtieVt j$laj "4 ja jj JlJci" jj ^lc laLialbj (4J1 aJ) 

.4_allAlt (jjilua AIIaJ) fi ^ill 



Do While ...Loop 

For.... Next Ai** ftiilwU 

Dim N , I As Integer 

N = Me.TextBoxl.Text 
Me.TextBoxl.Items.Clear () 

Dim N , I As Integer 

N = Me.TextBoxl.Text 
Me.TextBoxl.Items.Clear () 




j**> Ju»w / 4lJt£l —d ] 










































jJjno^hU jrt—<^1 ] 


1 = 1 

For I = 1 To N Step 2 

Do While I < = N 

Me. ListBoxl.Items.Add (I) 

Me. ListBoxl.Items.Add (I) 

Next 

1 = 1 + 2 


Next 


ListBoxl.Items.Clear () 

-:JjS2U ListBoxl #bi ubji»A» tiia. fi-\ 


ListBoxl.Items.Add (I) Aj^W ListBoxl »Ul yJl (I) 4-Ajii AiUaj ^ -Y 

1 = 2 4-ajS JjJsu £a (JaAL <U^j j]| jIjcVIj <_>alaJl JjSil 4 JjS (j £^u -V 

yi «•>« (jiajjua J.1C- JjSIuu ‘ i ‘ l £LaUji 11 »AiU 5 jaua 3 ; (*l) 

SbVl yi JlAfrV) £>*?_# " jj yJ& JaLualt He 4JLkjj <n ^ jJI Label3 #' J Vl 

LL^alt jjc. <UUj) ^ ^ jJl yli. Label3 »bSn yi JlJeSn £+a^> oasjajj Label3 
yi US Label3 SbVI yi Jl-seVl e>»~" jJ 



Do While ...Loop aIaa 

For.... Next 4U+ ^uluAj 

Dim N , I, Sum As Integer 

Dim N , I, Sum As Integer 

N = Me.TextBoxl.Text 

N = Me.TextBoxl.Text 

1 = 1 


Do While I < = N 

For I = 1 To N Step 2 

1 = 1 + 2 

Sum = Sum + I 

Next 

Next 

Me. Lebel3.Text= Sum 

Me. Lebel3.Text= Sum 


iUAall AAj jJajl 


Dim N, i, stun As Integer 

N - TextBoxl.Text 

Dim N, i, sum As Integer 

N = TextBoxl.Text 

i - 1 

Do While i <= N 

For i = 1 To N Step 2 

stun * sum + i 

sum = sum + i 

i = i + 2 

Loop 

Next 
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Procedures 

: Procedures djfrKl 

sift ,1 jin j»lj ^_uiVt lift flfrJiuil Aic ^ui) <Uj Code ^ j £■* jft * 

.uUukUl j j^l jVl 

j-aljSfl sift .1 jin 4^_uiVI lA^J 9 jlfrJluit tU ^utl CiAJ CjUuIxjJ lj jjjtjV) £>« AC.j«-><i * 

(j-« jlSi IfrabVnut jjSjj ja \jVl (j-« AS- jja^a IL1 jlS Ijj Sub ft-uuV laljj tiliLaljuIlj 

.t aju/Vilt Jib ^ua>a 

( gju^-^t lift Forml ajja Class * ijb/Vi UiL aja& Form £b>»j Ailuat H& * 
Cj_j1>U1j Variables ^1 >j*i«J1j Event Procedures ‘IIa^VI I>a1 o-c- 05L&VI 
.< aju^b (jUaj J& ji fIjstfl Jllai Js- Block Constants 

£>a JJC yi ^jCJluUj 49.1*1 j 9>a flj^yi ^!ilc.yi j»JJ 

.#>« l>« jisi jjsji o“^ Ajbs ji jSj ^jxi f i j^yi ^ j»jj -t 

/ J^)j £uaj^ yS <LauiU fIj&yi flCftiuit (jlaj _v 

4L>y JI^mJI laJ yj £l$J 

,4j»jL Jj*j V flj^l jftj Sub fr'jVsH 
4 ^ jj*j fij^i jAj Function -X 
subdj»ai^ jiuaiayi 
: AJU11 iVUll yi Sub *L*VI Cfi cp&H 1 ^ - 
. Class * aju^ll l (jib £lla t>» >si yfi AjjUS jljli £)Jfca Jj£ -1 

.AJjJjuj 4_a^i j AjfljS 4ij^uj Jj£il 4_iU£ -jb**l _T 

Sub d>*ill ^iUiU <wUJI Atmll 

Sub Name f L*V' (Parameters) -l^b-jil 
Code U jjftjj t-jjlhall Cj\ ajlilllj j^ljVl 

End Sub *L*VI 

Sub <-d£j IAjj -\ 
.a£H ty* yfrjiuu uij*j ts ill f Ij^Vl ^uil Name 

[ Juakw / :!Jh&l —d ] 





















jJjno^U jg—a'ifl 


-ijfr Jj£it ^ l^atiLujt (»jj« ^1 ^1 Parameters Ja^***!' -? 
JijJ jt jt ^tjj*l« jt ^ uj& l) 1 6^" Parameters -* 
.flj^VI Jib Lfjjjij ^t CjbukjJtj j-tjVt Ac.j^> ^ Code -M -* 
.f tj^Vt AjI^j 41*?. ^a End Sub -® 

.tiil . ..jU jjj*j (jLaj sj^» JS (111jaII (jA JX- ft jaVI flfrJiuil (jLsj -"I 

AjjjiJ! plSjSfl <_£j*i #flc.H«tj ShowOddOrEven Sub *tj*V' u^-V' : wyjJd 
.Button2 yk iaLiJt IX AjJjiit flijSft o^J^J Buttonl ^ Jai^aJt Jjfr 
Parameter ^Imjlt CP c^Vtj ShowOddOrEven »tj»yt CP ' 

Sub ShowOddOrEven( 3yVal (start J 
Dim i As Integer 



f AjAjjit j»l 2 jVtj t AjJjaJI Argument -it ja*J £* ftejimt -X 


Private Sub Buttonl Click (3yVai sender 1 

’ 10 u-H 1 o-» L-o>J_Ji 


ShowOddOrEven (1) 


End Sub 

Argument < '-*4 JjJaj 

Private Sub Button2 Cj^ 

f<3yVal sender J 

•10 ^ 1 ^ W 

' J 1 Jj. Y 1 (JO 

ShowOddOrEven(2) 


End Sub 



: JaISIL jlaU jA I 


Public Class Forml 
Dim Total As Integer 

Sub ShowOddOrEven (ByVal Start As Inte ger) 
Dim I As Integer 
Labell.Text = " " 

For I = Start To 10 Step 2 

Labell.Text= Labell.Text & " " & I 
Next 
End Sub 
End Class 

Private Sub Buttonl Click 




=£ 3 = 








































jJjno^U ja—] 

ShowOddOrEven (1) 

End Sub 

Private Sub Buttonl_Click 
ShowOddOrEven (2) 

End Sub 

Function aJIjJI gikSSI: Ly^ 

&£■ Ijjjla A-SIj l)' (*"' Code ej U jl i LSltj >»tjSft £y» Ac >»*-» yt> * 

.AajSj Jjjuj JaJlujj ji { J& 1 ^ 

ji ^ vVuhaK LjAtjlj Jjjj 4 _aJ A.L> iSU Function 4-StjJl u^c-Vt ^ * 

^jiU<a ,4i\'..mil t JjjaJI AaLala iSjjljJI kj - *- a Jlla ^laUja^I ^3 1^ «lw'.„V 


Function <U|jJI jikiU <WUJI <Uhwall 


Function Name (Parameters ^-jS') As a^' £jj 

Code 

lA jjfljj ujjthAtt >a)jV) 

Return Value 

AxaIjII AajSJI 

End Function 

AJIaS! AjI^ 


Function aJ'aJI 'jjj 
,a£>(a ^a yC-jiuu uijaa ^ ill aJIjI) ^ut Name ^ -t 
f AW. <J>A LjUaj j Parameters ^ -V 


.aSIjJI £>a a*aIjJI -Uiili ^Uj jja&j jAj Data Type di^t £>S -* 
.AJljJI flcjluit AjC dillui yjJl Cil Ajk'iStj >a)jVl yb Code -St -° 
Return ^t^Vunb aJIjJI 4_aj3 j±u>\ -“I 

.aSIjS) (j^ a*aIj]| 4_ajaI1 Jaaj ^ill jjsIaSI ^u) ^Sj jauj Value A -V 
End Function AJtAJt Aj^-S -A 

.LjJ j»j3 (J rtUrtVl £j!aj V JtjjJt * 
.Aaj&II aiis -I <A*. ..I jj£^j £>aj l£j ,jjij Aaj 3 ^jjj2 lA jlcH ojI pjj * 

,4Jlj2l AiJaj ylz Jjj f LamAj 1 j"nAiin JuaL * 

.(jxa3 j ^jaaa uluaJ AaJUJI Form Sisti yk- (jjhj £jj**la JlJcL ^3 :wyjJri 
tliljji ^IiIVuiiIj AJUSl A^aIjS) ^jah/Vu ^3 - \ 


m 


Ju xu / 
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: ylUlt J jilt uuSt J jjjliall 4 a jl <> F7 J& JaxJaiU J. jilt SiaU g3| -T 

Public Class Forml 

Function Sum (ByVal First As Single, ByVal Second As Single) As Single 
Dim Total As Single 
Total = First + Second 
Return Total 
End Class 

.Second , First Single 0 * Sum AltAlt CP Lt^VI p - 

First , u^“uM£-*?. jjt-j 'Cl Single lh> Total >£“ 6 * u^-V' - 

. Return flJaiuAj Total a-ajM ^jV Second 
: ^Ul) jjSll AjUSj Buttonl_Click *lj*) *Lilt & -Y 
Private Sub Buttonl_Click 

Dim X As Single = TextBoxl.Text 
Dim Y As Single = TextBox2.Text 
Label4.Text= Sum ( X , Y) 

End Sub 

(jAilt JjjJtLua 1 ag *ta Jil ^Vi in all il£tA.L4 <ja j-uaijj X, Y oJjJ*xall (jX- * 

SbL 4_*atAlt Text AjjaIAU Sum Alt Alt 4 _aJ ^ j-aaII juLi jIsjaIj TextBox 

,X,Y ojj-uilt JLjSal -1 j*j Label4 

fLilt jt (ij« Ljjfr 0 ^*^' ^t-ljt I 4 I a_ajS (Jauaai £ji«j Variables CjtjjilAlt * 

,l$J 4jjAalt {£ 1 \ ^hVlultj ^LaUJ ilt JiXuiJ 

JaJa ml I t L_a 1 Ljjc (jiLfrVI ft-iit 14 I 4 _ajS L) nj mVi j- 1 aj Constants Ci_j! jilt * 

,l£j 4jjAalt ^jilt lg_at4Aiuitj 

t_£j (jjAj 4 _aj 2 *j» t g a < nli 4 _l)jll ^CJluu (jilj L$J jkjfi jAwaij jLaj V Function JljJll * 

,l£j 4jjAall ^t ^t.A'n «t (jLajj 

: j i l rr I — j-t> JUSLw/jU*! —^ ; 














.iSb jt duiis ji jj*i« ji #jja-9 4 -ajS (jt Procedures ^btjayt Jaj^j * 
.t^aJUj {J& Jj^aail (jAiuaiji! &a CpH^ i_ijlaJt ^. iVu^i Function * 

.LilgJ (j^aj^Vi Alua. ^ j.i^u. 1 -' V Sub <^blJ^yt * 
.Sub (> *L>*! jA Event Procedure ^AsJl * b*! * 
Loops & Procedures Qblj*2l£ jljiJI £dUJI J nil I *i*«d 

; ^Ull J j£Jb 1 ni'n ii a AHJi\ £fi- uai ; > (jji 


^£■ JaLualt ^jj Lalic. jj£Jl iiijj ali _ ^ 

. Cp - JP**) CP Dim j->Vl j»t±Lu-t (»j -t 

jX Ajj!jSiUt AilaJI ^ jj)LL»Jt ^ui) -f 

. aJbjJI 4_aJjj.‘Lajij. AjjI j£j 2I AaUU 4j|Jj 4 _#j3 _ i 

. M 4_sjij J^i Ulic. AjjIjSjJI a aUU jjfl£ uiSjlj -® 

.jA JjSlt -“l 

; ^jSUIl Jj£Jb l ‘j*'... * <Ui«yi (jc uai ; T q* 

Private Sub Buttonl_Click 
Dim M As Integer 
Me.Labell.Text = " " 

For M = 2 to 9 Step 2 

Me.Labell.Text=Me.Labell.Text & M 
Next M 

MsgBox("£-»UjjJ! Lf 4^l") 

End Sub 

J a (Ja jiSt - \ 

. <>SV^t abi .diAaJl Ulic JjSJt Liu fu -t 

. jH\ j.baiu.1 p (M) jLiLt CP Cste'ti -T 

. U& 4_aJaluiLt jt jSjJI Alaa -t 

.jA a j! jSj Jl jaJ) J jilt - 0 

; AlaaJl LjjII JjjIjui ^bVunt £>a (jiaijiil 

Me.Labell.Text=Me.Labell.Text & M 

[ (>m> J^l£a jlulw / — d ] 


Private Sub Buttonl_Click 
Dim M As Integer 
For M = 1 to 3 
MsgBox (M) 

Next 
End Sub 


abi ( Jc-_ 

































jJjno^U jg—a 'ift ] 

.> 

AilaJ! Liu Jau (M) jLjLI AuiljuJl LuLt jl$JaV 4_aj!Ll J.jilt 4io. LiUl £lia uuSl -V 
. 4JUuj (jjllua juja AjjIjSjII 


^luit JjSJL Int'uiia 4ia^ JS ^Lai (x) Lailft j) (>/) 4_ailft £ua ; 1 “<_)jj 

Private Sub Buttonl_Click 
Dim N , Product As Integer 
Dim Str As String 
Me.TextBoxl.Text = " " 

For N = 1 to 12 

Str = 3 & "x" & N & "=" 

Product = 4 * N 

Me. TextBox.Text = Me. TextBox.Text & Str & Product & vbCrlf 
Next N 
End Sub 

jA JjSJI lift £>a fjfa jsdt 

( ) Str Dim Str As String &* 

jjiiaU N tu>ua £jU (jaaauaau jA Product = 3 * N <> L>=J*-!' -f 

( ) Product 

Product f <»M t-ijJa £iU Product = 3*N c> -t 

( ) N 

I^UJt (ja ^>ajill -0 

Me.TextBoxl.Text = Me.TextBoxl.Text & Str & Product & vbCrlf 
(jaaiJt jjiluL Text AjufllaiJ 4uuS£ Product jjUj Str 4 uuS ^Jaj jA 

( ) textBoxl 

( ) AjAa. jku JliuVI JA vbCrlf *> a- oijiit _t 

P t) (>) (> (i) JJxU jIjcSH JjAj. JjSi! ;*<>■ 

,Qai £SjUII oj% Luaj (V) JAlU JlJcVI JjJa julaj .Lujuj ^Ull JjSJl Jj& 


Private Sub Buttonl_Click 
Dim N , Product As Integer 
Dim Str As String 
Me.TextBoxl.Text = " " 
For N = 1 to 12 

Str = 4 & "x" & N & "=" 



luudu&Aittolf M -tf ] 


































































































jJjno^U jg—a 'ift ] 


yJUJt Jj£Jb "« J^Si ; \ • (jj 

Sub ShowOddOrEven (ByVal Start As Integer) 

Dim I As Integer 
Labell.Text = " " 

For I = Start To 10 Step 2 

Labell.Text= Labell.Text & " " & I 
Next 
End Sub 

.ja ftj*yi ^ut - \ 

..Parameter ££■ o^V' ^ 

.<> ijjj AjjI Jj 1 \ AilaJt _r 

!j jluti 4jjl jSjJI ^4 aJLjit 4_ajS -i 

. A f. Aj JjSJI JjillS flfrJluit AjC -0 

jI miuLa J^si : \ s u* 

Function XXX (ByVal As Integer, ByVal ZZZ As Integer) As Single 
Code 

Return RRR 
End Function 

jA ^u! - \ 

.i!hl! 4**1jll ^Lull _r 

.yS uijui Parameters iajU-jJt -V 

^A <Uui]| _i 

: Ua&JI djLaJI (oUi («) <w)Uj i^^all djLaJI foUl cl) <U5U g-o :Ugn 

t> JJc UjIjSj ^ cjbukjj j-jIjI <> jfr SjUc. Procedure 

( ) .CAj* 

Aj cj cjUjlultj c>« jfr SjUfr Procedure 

( ) .iliLuluJlj 9iA jjijj ^uiVI IAA f lc Hull 

( ) yi ^1>* Sjp <jj*^ jjS AjUS jIjSj j* Procedures ^lftja.VI flJilmi <> -f 


- 1 - 37^ 


j**> J^l£a Ju»w / 4lJt£l — d ] 


























AJlH) ^ilVu. 111 annVill JxlJ £uaj^ £>a jjSI y3 ajt ij£j ^3 l £jl (jjxa J j£ UjH jj£j la .lie. -i 

( ) Function 

jju Ulilij ijfrj i^uil dixj l^uJaj pl> yjJ1 CiLuluilj j^ljSfl Afi.ja->a -® I 

( ) Procedure *'j*! 

AJlJ I 4 J& Jjttaj A^iL ij*j U liiu Jjfrj t^ul uIl^j I^jlusj fjj ( Jj\\ Cjl ajWllIj jHjV) -1 I 

( ) Function 

f Ijx) - <A *."‘ 1 ii*.-**!! ^uaj^ (ja ji£i ^3 sjIjSj ^3 i_icjj £jjx-a JjS Lull ,jj£a Ulic -V 
( ) Procedure 

( ) *1j*V 1 flftjluit He. ftj^yt (>> j»j 3 JUiiuiV Parameters ^Jxluu -A 

i!£UIjla jjj <uui!i (jii Taxes (0.05) *tjx) fleJiui He -A 

( ) Argument 

( ) Argument > 4 ^ <j% Taxes Taxes (0.05) *'j*! fleHut He A . 

( ) EndSub4^jSub4^^J(>^V'-^ 

( ) End Function -i <^ 4 %^ Function -i '4y AJl J if- u^e-V' -' Y 

( ) 'fl * <uu3 Ale " jj£ ILH (jlS Ij| Function AJ1H1 -t <c-i, ..y L^l) _ ^ V 

( ) l *Lu3 Ajfr grVnui jjS LLH jl£ 1 j] Procedure ftjxVl flAaJLmV laAi _ ^ i 

JaiLuij lab (ji (jlai (jaxa ^uAj CiLaaLulIj jaljSfl £>a Afi.j)a->a <je ajbe- AllHt -' ® 

( ) Value a*a'j a^uL Parameters 

Values b il » a j lab ji (jlai u^*-a ^uL dil ajlilllj jaijSM d>« a^ ja>a (jc ajbe AJ1H1 A A 
( ) Parameters a**' j a^uL j j*jj 

UJ*j (ilfljalj JljJ {fi. (^leVl gajiali ( "i^am Ljji V.B.Net Ax! laji A V 
( ) A min gtajia!l 

( ) 1 g3bfl (10 Mod 3) J Mod d-u-ll JL^u . t A 

( ) ^laJl ^ JjaIII {jl) jjJojj sJjxa^aJ) CjIaKII £>4 Me A-ab - ^ A 

( ) iU-v' J^Ula£ » <A-.,..-, ^ 4_a^UJ) _ Y . 

: ^iid U* J&J WuSi :\r JH 

. sbl!V) a jbxj (jjiLa Jxb ajlil! juijm jj£ jjJ ^Jxluu AilJ - \ 
.jIjSj!! CjIja JJ& uluaJ ^ \A J i, „j ^a3j jjjua _Y 
.law ii a j)jSa!) (IllJJfr Aijxa Ajlx ^3 ^,A*in* ^1 j)jSa!l Alax -T 
.jjxaL jHi jiaJJ O' tP! j' #>> >£' j' >>' (»Sxjj ^alji -i 

.ListBox a)j| (jxlJ JAxaJl ^3 j AijxaJ - jaanH AjAdli. -O 

.A^uS ^Hj 3 ^Jluu diLaJjuj jalji AC.ja->a (jfr a jbe -A 

[ (>m> J^l£a Ju*w / — d ] 















jjjno^U ] 

.Jj±i. jlaui fluuV ^Vu.il V.B.Net A*S Sjjyia AaIS -V 
.jil (jLu ji jjila ji 4_4 j 2 ^ f Uj Uai. jl i_il j*a Aajli ,jj£j Aa-ajJl jj£ £^a * -A 

Lalic jljSUl uifl jjjj £A jaJI a lawiia LJjjJLa jjC JX- (jjjta J jS jljS3l ^Viiim jl j£j Alaa. -H 

V.B.Net 4*! ^uljjJl d$&\ ^ fJaiuu 4laa. _ ^. 
Cyber Bullying tfrijjaSM : gdljJI Juifill 

{jZl) CilC jiJaj^l qa tliVLafljVlj iliLajitaJ) JiLuij 4il£ £a iluijliVl £a J^UlSl ililiblAt Jaj * 
.ilujIiVI £a Ja»l*j]| J^Ia (j-a Aaalui jj^i j AjjIajI i_ulja. dLiA j Cil*-aia-aJlj JljSSfl 

drljaSU A-uU-j?! c^l jaJl ;V ji 

jjUallj JualjjJU AiiuuJl -T uLSjaJl_t 

tljjSSU AnluJl uul jail ;Lulj 
,Ual CiU jIxa (J k- Jjiavtll - \ 

.AajJjaSJVl JLuaaVl JajUuj jjC (jjjjjcail (jaaxJ AuujS £Aj -T 
.Aj^aji^iAll lillglil -V 
,4ji^iAilill JlAjjl -i 

E-Mail j' Face book ^l-al^ri J*-alj^l jSl ja Js. liuaU Akju> .0 

,Ali^ Jl\ jLa! jj jl (jinnVilt JLa !jj ji Ciluijjailb AjIi^VI jJal Aal lijl^A (jaa ij*j -“1 

Ori>U 

.Aaj jjaSJVt JLuaaVl JjUuj jjC j&V (j<*iAi« laala ^31 jJfr iiljlui (jC ajbc jA 

tfdj>aai jis^i a$i 

^ij^yi-r AijUaaJi-r oij^i.^ 

JIJjjVI -1 Jj^llll -0 tjjjiill -£ 

<Ujj>aai kjU»JI Lyld 

-: (jb La l^iaj SjjiiS yA j ^jjaSJVl jla^ll 1 j a^ViuM ^311 liibjSaJl (j£ SjUfr ^A 
Email t 

Forums - r 

Instant Message Jjt^jJl -i* 
Blogger AujjaS^I dUjlall -£ 
Face book ^UiaiVl J^alj5ll jSlja -0 

[ j**> J^l£a Ju*w / — d ] 



















jJjno^U ja— 


(jrij^aai ggai jm ujlj 

Anonymity ' 

&j_al 1 « ■*< (jiajJu yjjjaSWl ^AaLLall 4 j , ,a A." ^ aA-. 4jbu_uta fLa_ui »t <■%••., „t -j£. ajl_ic- 

.u&di <> n^yi j 

Harassment laliaLAait - X 

.jaSI jl 'j-^ ■'■< ±ua a AjjIjc JjImjj je a jUc- 

Cyber Stalking Aaijj^yt Aaa.^) _r 

jaaca tii (jA't all ’ j 1*1 jj^la Jiaia jSJ A_iijjaSjyt iljliaLuiaJl JlSaaii ja JSaai ^A 

.AL^jlaj Aajj jaSJVI JaiLuijll Ail£ 

Flaming ^jjaSlVI t-jjiltj <-m4 - i 

.AajjjaSWl Jb^aVI JaiLuj A^l Jjli ja ja£l jl •' Aua AlJaaaj AjJIjc uLaIS j**u jc ajUc 
JS:*M jail jl JA^-a (ji'T^iti jC AjLajixa jalia jC Ajlat 

Exclusion frlaaamV) 

.AujjjSJI JaiLuj J!^a ija jail ji JaIaj jfr ajbc 

Cyber threats ^j>siyt Ja^t -V 

.jaSI jl (j^Salb! Jafr J jl JaAJ AjjjjaSJl Jibaij JLajI jt ajlat 


>» Uulj 

.jull Aal&a 1 j*,I 4jLia V A 

.1 j->)Tn:«) i jinij jjjai AolS JtJfrj -X 
.Auali, CjlaLu jaia -X' 

.^Jaalt JiLujj ■ ° Luaii -£ 
.<luijaaV 1 ja» Aalfr ililj*a A^l ALlLa - 0 

.t_u<alc ilulj AaajjaSlj JaLaj Jluijl ja jJIa -“l 
.iliajaiVI - 1 <A*. ,.l ilc, jl i^ij jau jaVl filial -V 
.4 >a' (_y!j ji lilalfc a t_i) jail ili&a jjSa ilu jaaVI ja ^La) jail Jl ji) -A 

^y>yUJ |>» 2 I joIj^m 2 I dil^y f 0 l>J 2 l i ^yLa oil^» 

jl (jS^aJ) ja> JA ^ajjaSlj Jaja uLu^ ^ lie- jaui (JaAi^J J*ajl jl Jajl jaaalai Jja»C Jli -1 
.AJLuijJ) alA JLuij) qa jSaal iila jaadlSJ) jjjaJ) AaKj ^iaSuial) ^aai) ^aalaaa 

f J»ia I ju 4 jIj yi * 
. jiaJ! AaIS ±4 4jliia V : AaUV) 


l 77 ! 


jmh> J^l£a Ju»w / AlJt£i — d ] 



















i jb jjj.lt 4_lS ^lHuit (jjAujb bl j!a2 Aj jjaIa ^jjjSJ) Jjjj 4-iLliA flbjLi j jaC- ^l£ - Y 
.uLma!) 0jS2 »J^La Alui ^1 AawjI 


jJjno^U jrt— 


YUj <.'*^*j uLSj V jjaC. jj2 j2j j jll Uallt La LLtj ^ * 
Alia Ajj*ja 4a ,jJ bit j 4_al£ jLnll Alt Uj ijlVitj ilgAllilut J^uu jjjj 4_alS jUaI ; AjIaVI 
.4jj2 J£ Ujjj*j £-a 4l_fljj»i A (ja jjSIj cAjaIa biLa^Xc j uijj^j jaliIjt j _ J Jc- j jjal 


(JaLj bilajka jb! j»lij Face Book c# c.'^Vt cMjjlt jitjji J*t UtjlbVU yj>tj fl3 -t 

biLajlxAl) LUj (jji SJliluiVb <ja! ^lia lAjajl) ^a^llabui j SjuiVt 4 jjja Lajs 1 ul 4 AjjaI 

L>» (jl«JJ 


?t_i jjajII lift f .tjA I4J qa j*jj £t ££ai <jj1 t jJalAa dlifc JAj YJxL c)t L)^ 'j'-* 4tby®* 
ill JIajjI j) jljjjVl j) jj^-bull (jAjluIt ; Jla px j iAjaIa bitlLu ji jU ; AjIaV) 
,Ajjluba jjC (jaIauI Jj ^ AiiUJl jjja £j2j Aajjj 


^£■ £^UaVt Ala ,l*_ll -_Lia2 Jjjj AlLuij ^ Aj*j AliaJ £ji AaIxI <_£Ualt Ja) L# Slb) -i 

.4JUVI JIj bi *.iaa ; ^JxaJt aJ JLaa iAILw ijl) dla. Si Alt i_JUal) AjIaU iAILui jit 4 j& 


? o' L)^ ' ^ *4i'j (J * 

. jJjul) JjLuij (_ijA oil: : AjIaVI 


-Lj jLlJj jl Jjjj AjJIajJI -_fl ijC jJa( <ja1jji bi2lj*j ji! 4jlljl jjjiC- Jli -0 


? 4Jltj J j £)IS t Jla LLt j ^5 * 
.bujjjVI JJC ‘-flj' 0, i-4j*J ijji ALtAa j) tfljjC- AjjlLa ^ya A*laj Sjbu SjJa ; AjIaV) 


uijC’ jt ^cHaVI JjAtjjJl jStjj J&t jjC- (jjauAjj jjafr (jJJ jtj^ 4 jjjS SjLula ----- ^ - 


Yjjac uijaaj iLij La * 

AlLui j JLui jj £>4 jJIa" bu jjjvlS £>aVl ^tJlluiVt JC-tjS ^llit AjIc- (jl£j 4 ^ juna ui ijaaj ; AjIaV) 

,"i_ibalc biiij AjjjjjlSj 


LalS Alt JoaVj lAJ^LaJ ^a (jjbullj Aja^jJaSI AlablSft (j a*j Ja& ^ bujiiVI j>aC- » Jala jj - 
jUjjVI ^3 jj-aC- jSiS 4 AI A nm a chat AjAIaji ^Latlijj ^ Ajjj 2 AlLuij ALaj illjalVt ^jVnul 
.Ajii (jc UlflJj SfLuVt * .'‘t-" 1 ' bljjlVt ^tJlluit <j£- 


? jj^fr i-iyS llj) J La * 

^Ixa ji jjSVI Aja) ji 4 Jltj (jj» aJcLjjaJt -_lkS IaL jt AjIc IjISj i^^^jIui (_fl jaaj ; AjIaV) 
.AjjIajVL 4fLuiV! A^aIjj ^ AlJcLutai jjjjxaSlt 






; J^l£a «Lulw / ^Ij^l 



















til!j t.iuin^ tduijliVI UjjJj £2)jjjJ) ^ xaai £>4 ^la)jj j\ JtJj) ^is- (jiauiLj luJLjC-I -A 

,(j.CjLujjjji^lj jjjj±a£il AjLuaj ^ 

? tlijjUyt (jj» 42 jj*u» jJfr £u»Ijj ls) Jljjj (^Jc- J 2 tjJ JA * 
tgLA)jj]| a4gJ Ajj&a31 4 (JjAa Sic. Ij^j lA jh^Aj ^L4)jj]I a4A (jj> 4Sli!l ^yujj Jj tV ; AjIaV) 
J*Yl JJ (> J*i ajUjjjjtj 

Cyber Bullying ^£>£121 : gJ^I ^aall <£mI 

-: tjJd U*i UaiJI djLaJI jeUI (X> <L»Ucj innnll djLaJI ^Ul (V) <UUc &ia \ja 

ji (jaj_aoi! 4 _ujjj& 1V1 lajL-ujil <■** -. 4_axla ^j| jic- iljLuj (j£ ajluC yJjjjiSVt - \ 

( ) .(jJj^Yl A»J$j j' ji ^IjaJ jl 4 fjL 2 aj»Jt 

( ) .^jC-Laj^Vt Juatjjlt £2tj,a Jia 4jjjjj£l) lajluij Jjli &a fli ^jjjSW) -1 

( ) .cAjj^Y' cs- 5 *^' <> Y'- r 

( ) <L# jJJJS2V1 ($J*jll J A „«ti 4_jjjJjli'iI Jajluijjl jaAl jj-a Jj4£j]|j (jijAjII -t 

( ) ,yjjjj£iyi cs- 5 *-*^ JISjjiS d>4 JljjjYtj 45 jLu3aJI _o 

(jiaJ Lf ll\ jlaLLaJI yjjjjSiyi aAjjj ji ^jC-Laj^Vt Jt^tjjll j3t>a ^ (jjaaui Ljluta. 42 jjj _“l 
( ) .^jjj^Y' Jt-atjl2) laitjij jjC LjJ (ji 

tiilibUll jjjJall °* JujaL jaa (j^liuui uijauJI ^ Jeluu ^Laj^Vt Jj^IjjII j2|jji -V 

( ) .AjcUbtVI 

LLi jjlj'il Aj jjli *Qg_ui jjj_a 4_al£ £jjaj (ji J*ja£j (j^Yt *'iAJ*"V 1 J&lj2 ^a LuIlaj -A 

( ) >jSi3 ^jbu , n yla. 

( ) ,4jj jjjSIV I Jj^t jjJ! Jjluij 4il£ (jjjm (j^iJu ^jjj t ysu jjSIV I fU jIuVI - 4 

( ) . jjSI ji (jrt^tti^ 4 j4^j Jj»aj 4jjjjj£ll JjLui j Jluiijj l^j hsitj AjjjjjSJVI AA^jlaJl -' • 


(>‘VI - 1 <4.*. mVi jcija f j^ja iLij 

(JZjaII 

(* 


^1***. "V 1 A 1 " jjja 4_a]£ ^uaj 



j»3jj AJIjjfr j ^aja-s. U 4 _auV (j/av>j jjjU 

4jjjjjSJVI h il < 11jit jjC 4JjjSjIj 

r 



tluJjjyt yte liU £tu jtaljj (5» JiJji 

r 


4j (jjajauj 42 ^ Jju ^jAc. uiuaULlt jjjjjJ) Jjll 

i 



^2 l$j ^j yjll JjLui jJt ^ua ‘ a’\-v 

^jjjSjyt JjjJl ji ^Laj&Vl Jjflljjll J2 I_jji 

0 



t y yLa t£al^» 

JjU ji fbiapYt AaI J^tlj LaISj tyfrLal^n J-atjUt jit>a l^i ^ ojaLa-^Yt l^i iSjltil 

.AjIc J jit 4 jjj2 4jJIaj» f-l j^j 


[ J*u> J^l^a JuakM / —i f ] 


































jJjno^U jg—] 

yAuuj.Jliu.1 £)■* v^iJa U jy* t i - 

.<_ijualll Jllj 4 ^aIj^ J*il I jU _ 

sjC- du Jail j juaa Js- (j^LsoaVl JaI »<g*<; du^j2j ^laj&VI JualjUI jit ja JaS ^ d£jluit - Y 

.(3# JJC U jjaj 

AjIc Jjll (ja ,j£aj 4jjlajj dilij^l 4juji (1) JJa. _ 

._Y ._Y 

. -i ._r 

J$ai jL*i*l 

ijdl^ia^l i>y t>» Admail <uU2l : J$2I JI^mJI 

.Aaljjlil] Jailuij J^Ia £ja jail ji JaIaj 9jbc yjjjlilVI .- Y 

( f LuiuiVI - ‘LL^LaJl - JjJ^HI - jjg ■*'<> ) 

^jj ^uiVI )JA fit Jluit JjC- la ^uil dal till ajU'itt j jaljSfl <ja AC-jaaa jA . - Y 

.till ajVnllj jaljVI 9JA jjAH 
(Else - End - Procedure - Class) 

.jjj*j!I jjLi (jj% Ujjc if 4laa Else (Jhi cS^' ^ -f 

(Then - False - Next - True ) 

.ill!jjiiall (jfr .4laa ^Jaluil -£ 

( Dim - Constant - For - False ) 

.^lali Jiuu jljilll dlja JJC 4ij*a ^JC- 411 a 9 Jala ^ . -* 

(Do While ... Loop - Select.. Case - For ... Next) 

<wJUI QljLaJI ^ la* 4**t U g**ss : ^yUJI JI$*JI 

Y 1 jA(3 + 6)*2 AajLuiall Aulaxll dill gtlli - Y 
4_ajall 9 JA ^tJVuiit dliaj ^1 l^j (jjal <Uu2 gtlllfl ^Jiuil Lajj L$J ^ jiaj V duljall -Y 

,4jjdall 

. Items if* ListBox SUSTLj JJauall >-al*ll jaul Jil t AaualaJl -£ 

. Y o 0 _j (^fljjj £>a IJjj 4j Aljadll 4-ajill JjJa Double £jl -° 

: 4JUJI JlfrJI 

4jJua £ Code yS Lkall £jl JJa - Y 


Dim X As Sangle 

Aallll! Jl jSVt 4> Jji <j£ (.ui yUt gjlUJt laJiluLa J jS JS ijAu gSU JJ* -Y 


(* 

jj ill 

£->11111 

1 

Dim A As integer = 7 

Dim B As Integer = 9 

MsgBox (A & "x" & B "=" & " " & A*B) 

(A x B = 36) 

( 7 x 9 = 63 ) 
(7 x9=A*B) 

2 

Dim X , Y As Single 

X = 10 

( 50 - 26 - 32 ) 


i ii £ Zm 


J^l£a Ju»w / —i f ] 




































^IJ^IuIOIIOaII - 



Y = 3 * X + 2 

Labell.Text = Y 


3 

Dim R, Sum As Integer 

For R = 5 To 10 Step -1 

Sum = Sum + R 

Next 

MsgBox (R) 

( 5 -10 - 0) 


^LJI jLOai 


UaaJI djLall (oUl (X > ojLfij o n nil ajLall jeWI (V) Oil* gO : J$SII JI^JI 

( ) True <^>-1' gSU jj% If 41*?- ^ Else (Ji ls^' j j*1' ' 

( ) CauiSltj <_ijJatl Jji £jkllj £aalt AalaC ii&jj 4Jli AjjLutalt (IiUIaxJI iiiiJ (liL^ljV IsjI 3 - Y 

ji Ailgllt (Jlajij 4_jjjjj£i'il Jajluijl) - »■**, ••> Xaxla d jiui jC S jbC- ^yjjjSWl ^ Jjul) -V 

( ) 

( ) j»ij j! (_ijaj jjilall ^uit ).lu ji jeaU jdt ^3 dutjall ji (litjjilall Aj a mj Jfrtjij -i 

( ) dilj^Jl jA jjc. <^1 ^Huuj Sj^Ij Sja Procedure f'»V' Cfi cfc-i-° 

^-dUJI jM gj U* OrtUQI Q1S1I 5Q : cyjUJI JMI 

( Select - Case - Integer - Dim - Step - Sub ) 

.^jiall jdlAJ^t jA jjS t AIIa ^3 . ^ ,. J i _ ^ 

.Uuatjjil SjLjlt <LajS ji (J Mj tigi For ... Next .4 jIjS ^x- _Y 

>isi ^3 AjjUS jjSifui Code t-yd ^ '^! 41'-* ^ . OF j!^iU tail _v 

.Class < i nk'l l J^tJ jdajA jA 

.AIaa ^IiIViidiIj ditjjilall jC jitcyt j»jj -i 

.Jala 4-tj-milt JtJfrVt jjj»Al ^ilVinij.£jj jA jaiialt -fi 

tfdU U JOI : 4JU1I JMI 

.£jll' j- ( Const X As Single ) Jj*lt ^ daiil 

. jA ( 5 + 3 ) * 2 ^ J.* 11 AaIajlII Liij gdU - Y 

Unna (Jjjjla Jjfr (litj-dt j-a JJxl JAi_a Code jtjSal . 4la»i ^VuiM -V 

. jj*-a Jajrfl p Uj 


UO olla&aJI qLU 2I >y on nil <yU^I gdl^JI JI^JI 



Jj_Sit 

gjimt 

1 

Dim X As Integer , Sum As Integer 

jdj la jla Jalialt Code J*j 


For X = 1 to 5 

3* Lbl_Display j'>**l' St jI ^ ^uiajc 


Sum = Sum + X 

5(5 


Next 

10 (v 


Lbl_Display. Text = Sum 

15 (-* 


l 77 ! 


J^Oa Juakw / :!J^I — d ] 




































< 1 ) 0 ) 10 * 1 ! - 


2 

Dim Y As Integer = 15 

j»JJ La (Jlfl JjliaJt Code jaiia J*a 


If X Mod 3 = 0 Then 

j* Labell O'j 2 * 2 ' #' J ' ^ ^P 


Labell.Text = "True" 

True(t 


Else 

False (v 


Labell.Text = "False" 

End If 

15 


^JLJI jLOai 

t>y >e <0^ail <uU2l jOI : J^SSI JI$*JI 

.^ OA Sub 

( (Jfui La JS - Cj^Ubui j\ jib V - J^lxa (j^a ja£! - Jailxa ) 

jIjxU AalJail 4_ajS dul£ |jj uIlwJL SjlajJI jlJia CxA For .. Next 41*^ ^ -t 
( &jUu - 4> J3i _ (> jjSS ) .AaljjJ! 4j»ja 

J* J 4 * 2 ' ^ False ^ (If •• Then .. Else) J -? 

(End If - Else - Then) . 

flaai jaiaaj jaj),naSlt 9 jSlJa Sjj^a Aaaaj^a £j£Lai. -t 

( Jjauj Lm f V - (jaaa^iall j^lji - Caaljall - tilljaiiaJ) ) .^talajail jiu 

.Function jt Sub *b*V' CP u^Y' A -° 

( Jjxui La j£ - 9 ja£t - 9.1^1 J 9 Ja» ) 

: Oft! QljUall tfO JUI erOaJI gUk^JI : ^UJI JlfrJI 

. JjJAi jiou f Luuj a ..t „t ilula -> 

.Aj^aLk ji jaiia 5j»ja J& *laa tSUjj False j' True 4*alj Jj* Cp P 

.4au2 l$J <jAuaia Vj AiaSi £>a (jaaYl <_a.jlal! p ^Vuim -V 

^gl QljLall JOI: >-JUJI JlfrJI 

.g^lajail ^3 i^aljail . f.AWt -\ 

.f.jait (> ^'jaila f ^Vu ‘ ii False j' True ^-aaiJI LttjiaJ 

. JA(483 a 2)/6-3 AaaLa^t AaLadl £ala _r 

.18 u ii a 4_ajiLa jaC ft J^Vl £>a ^a3 JlaiiuiV <Ua*aj£. ^.ikluia -i 

Do While flJiiui* ( A ) w 1 ! (') <> VJ* 2 'J'-»Yt ^4^ t# 2 ^ 2 ' J ^' J- 5 ' -® 

Dim X As Short 

X =. 

Do While. 

MsgBox (X) 

[ J^Oa JuakM / :!Jh&! — ri ] 



































jJjno^U jg—a 'ift ] 


UttJI djLaJI ^Ul (X > 6jLf$ ojLaJI feWI (V) <wiU g*a : gdl^JI Jlj^tJI 

( ) TextBox SuSfl Focus () 4L«jJ! _ \ 

( ) jLa Aj-uatjjaVt SJbjJt jlJia For .. Next Ai*?. ^ Step ^ 

( ) ^a j ji ^jaj! <-• jj*la2t ^*1 Sajj (1)' ££*4 -f 

( ) juU Uai JjLui j j\ l$J jfrlaj V Ajah'ia^t frUa^Vt -t 

( ) J#* 4 >£' jW^'j <> Aj& Select.. Case *i»a. f' AWt _» 

gdi^ji jL^ai 

gdjgril fry fr» <^aJI <yU2l >£| : J^l JlfrJI 

(End If - Then - If) & Vj jla« ^a If ..Then ..Else 41 a* AjL£ _ t 

.f ^^uta JlOu 4_uali> CiLa^lxa juil jA ( fUjluiVI - - jj j iiu'1) - Y 

(False j' True - False - True ) CxA o' ^ Then j If 14 Jaj&s oa*^' g3U - r 
t> o^') M jj*aa 2' ^-«ja Laaj& For M = 10 To 1 Step -2 ^a jljlUt uiajlj -i 

4_<u2 ( - ija jua\ - 

.JIajV) >j AiUiaV ^VL.n OuIj (Me - Const - vbCrlf) -° 
. jjjlj AjU£ liJ j) La lit Ajla. ^a(##_@@." " ) yiaile ^Aaauu -"I 
.( 3 - 2 -1) j* (If ..Then .. Else) t 4 ^**2' £.0^' ^ -V 

£jU 4J V duA IDE A«u»Lu» UjftLuu (JjLulUI X£- - Ajjdaldl - AjjxUI) fUa^Sfl L ^S- t.tVnM -A 

,£jj2l I A4> qa Uaa. (j S 

UaAJI ojLaJI ^Ul (X) 0 yLf£ ?nnnll ojLail foWI ( V > g-a ■. ^Ull JI$*JI 

JaLLdt (ja A1 uija2I 4_ujJjIoj jJl ija (j^laa2l uaj - \ 

Aiaa. <_$! ^a l$-al.iiluil Jjaj V Function J'jalt -X 
. 8 j jj*aa 2' ^ i!U ^ False Case Is > = 4 aIa^ -t 
^ULat jjS! ijuj aIa. ^a Select.. Case Ai** ^ oLLOi _t 
_jaSa 4tj-n^t j| jfrVl f> V aj ^a ^.iVuh* Double o - jj*a»2' - 0 
. TextBox SIjVi Focus AL«j2t ? \Vu .m _n 

9 Aj aJLjj ^ <j2aj*j MsgBox ("3" & "x" & "3") J*Vl -V 

i^yaiLU Lm <LJUJI Jfl'>H (I mJUJI JI^JI 


ListBox SiaVW J±aja2t j^ajxSt JJ.UU.A^uaLaJt -\ 

.g-aU jj21 AjC cWj. A_alS Ou l_u£j La -t 


.(1)J% Text AouflLaJt ^a j»±iiuLa2) ^Ua2l -T 

. AalUIt AlluiSft OjLIa) Ala gr jaJiuit ^jSLUt JjSlt A^t jO ^a (i_j 

Public Class Forml 

Sub ShowOddOrEven (ByVal Start As Integer) 

Dim X As Integer 
Labell.Text= " " 

[ v J^l£a jLuy / — d ] 


( ) 
( ) 
( ) 
( ) 
( ) 
( ) 
( ) 


























jJjno^U jg—a 'ift ] 


For X = Start to 10 Step 2 

Labell.Text=Labell.Text & X 
Next 
End Sub 
End Class 


.^uil iltaj fl(jfr - S 

Chi Cy>j.(*"' Parameter o^Y' (»j 

.4_*IS fhiiuAj x jj*1*2I CP p - r 

. jA Labell ^ ShowOddOrEven (8) *^-£*-1 -* 


gtfflftll jL*i2l 

UaaJI ojLaJI jeWI (X > 6jLs$ ^hnnll ojLaJI (oWI (V) g*a : J^l JI^JI 

( ) .Ai a&V AIa,j^s ^ ji j!>LeV) fU jS tilljjilaii jjl^u _ I 

( ) .Uai jl i_j|j*a Laj AajU (jjSj Aa^ijj]| Jj£ f ja jA ^laj^l jjjjuII - Y 

( ) False la>-2l l^Ua JjS jIjSj ja Do While .. Loop 4i*?> j»lJaiu-l cp -V 
u* J* ^ (Single) <^a (Area) aS'aL! a*a!jII ^ui!l -t 
( ) Function Area (ByVal Radius As Single) As Integer 


JaaII : ^UJI JlfrJI 

.tjc 4jbc jtiurfiVill Ala* -^ 

TextBox o^' (iJAi-aj AL«j jA Focus >«Yl -Y 
. ja Procedure *b*V' - r 


inn nil tyuai ji* I: JMI 

£jjJI 6« Din X As Single ALaJl ^ UaaJl _ ^ 
(Logic Error - Syntax and Logic Error - Syntax Error) 

; ^Ull JUjJLi I^jjIjj ^ i_ulj A = 2-bijJjJI (jAali .lie. AjjI jSj Aala. pl^JI -Y 

(Do While (a < > 2) - Do While (a < > 2) Or (a > = 2) - Do While (a = 2) 
.jl.jl jl AaJi £l L») Procedures *b*V' 

: iUjLtaJI QljUtll £dU : gdlyJI 

4/2 + 5*2-3 aC 

(4*3 A 2-30)/(11 Mod 3-1) -t 

(_>a 11| ^ Aiiia Ajj^jC AA^ja J£J iji ill ult ^auLoIl JAaj ^illj ^Uil Jj£Jl AutljJj (i_j 

Dim Age As Single 

Age = Me. TextBoxl.Text 
Select Case Age 
Case 14 To 18 
Label2.Text= " JAl>» tiui" 


[ t i 


j**> J^l£a Ju»w / AlJt£l — d ] 




























Case 19 To 30 
Label2.Text =' c “'" 

Case Else 

Label2.Text= "V. j U ^ ^ JUjJ 
End Select 

TextBoxl £jj-> yS jlaeSf! JUJj Jjc Label2 u'>^' »' J ' ^ ^jc- fu u jj». _ 
8 ^t( r ) 22 >*11 p) 

( For M = 3 To 1 Step -1) ^311 ^ J* (M) ^ U - 


[ tl 


j**> J^l£a Ju»w / AlJt£! — d ] 











